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FUtBIORD 

STEAP  Xt  la  a aeries  of  three  computer  programs  developed  by  the 
Martin-Marietta  Corporation  for  the  mathematical  analyala  of  the  navigation 
and  guidance  of  lunar  and  Interplanetary  trajectories.  STEAP  is  an  acronym 
for  Space  Trajectory  Error  Analysis  Programs.  The  first  aeries  of  programs 
under  this  was  developed  under  contract  NAS  1-8745  for  Langley  Research 

Center  and  was  documented  in  two  volumes  (STEAP  User's  Manual,  STEAP  Analytical 
Manual)  aa  NASA  Contract  Report  66818.  Under  contract  NAS  5-11795  the  STEAP 
series  was  extensively  nod 1 fled  and  expanded  for  Goddard  Space  Flight  Center. 
This  second  generation  series  of  programs  is  referred  to  as  STEAP  IX. 

STEAP  XI  is  composed  of  three  independent  yet  related  programs:  NGKNAL, 
KREAN,  and  SXMUL.  All  three  programs  require  the  integration  of  n-body 
trajectories  for  both  Interplanetary  and  lunar  missions.  The  virtual  masa 
technique  is  the  scheme  used  for  this  purpose  in  all  three  programs. 

The  first  program  named  KGH8AL  is  responsible  for  the  generation  of 
n-body  nominal  trajectories  (either  lunar  or  Interplanetary)  performing  a 
number  of  deterministic  guidance  events.  These  events  Include  initial  or 
injection  targeting,  aidcourse  retargeting,  and  orbit  insertion.  A variety 
of  target  parameters  are  available  for  the  targeting  events.  The  actual 
targeting  is  done  iteratively  either  by  a modified  Newton- Baphs on  algorithm 
or  by  a steepest  descent-conjugate  gradient  scheme.  Flinar  ami  nonplanar 
strategies  are  available  for  the  orbit  Insertion  computation.  All  maneuvers 
may  be  executed  either  by  a simple  impulsive  model  or  by  a pulsing  sequence 
model. 

» 

ERRAH,  the  second  program  of  STEAP  IIt  is  used  to  conduct  linear  error 
analysis  studies  along  specific  targeted  trajectories.  The  targeted  trajectory 
may  however  be  altered  during  flight  by  retargeting  events  (computed  either 
by  linear  or  uonl inear  guidance)  and  by  an  orbit  insertion  event.  Knowledge 
and  control  covariances  are  propagated  along  the  trajectory  through  a series 
of  measurements  and  guidance  events  in  a totally  Integrated  fashion.  The 
knowledge  covariance  is  processed  through  measurements  using  an  optimal 
Kalman- Schmidt  filter  with  arbitrary  solve- for /consider  augmentation. 

Execution  errors  at  guidance  events  may  be  modeled  either  by  an  impulsive 
approximation  or  by  a pulsing  sequence  model.  The  resulting  knowledge  and 
control  covariances  may  be  analysed  by  the  program  et  various  events  to 
determine  statistical  data  Including  probabilistic  midepuraa  correction  sizing 
and  effectiveness,  probability  of  impact,  and  biased  aim point  requirements. 

The  third  and  final  program  in  the  STEAP  XX  series  la  the  simulation 
program  SXKUI..  SXMUL  is  responsible  for  the  testing  of  the  mathematical 
models  used  In  the  navigation  and  guidance  process.  An  "actual"  dynamic 
model  is  used  to  propagate  an  "actual"  trajectory.  Noisy  measurements  from 
this  "actual"  trajectory  are  then  sent  to  the  estimation  algorithm.  Hera 
the  actual  measurement,  the  statistics  associated  with  the',  measurement, 
end  sn  "assumed"  dynamical  modal  are  blended  together  to  generate  the  filter 
estimate  of  the  trajectory  state.  This  process  is  repeated  continually 
through  the  measurement  schedule.  At  guidance  events  corrections  are  computed 


based  on  the  estimate  of  the  current  state.  These  corrections  are  then 
corrupted  by  execution  errors  and  added  to  the  "actual”  trajectory.  The 
statistics  and  augmentation  of  the  filter,  the  mismatches  In  the  "actual" 
and  "assumed"  dynamics,  and  the  execution  errors  and  measurement  biases 
•ay  then  be  varied  to  determine  the  effects  of  these  parameters  on  the 
navigation  and  guidance  process. 

The  documentation  for  STEAP  II  consists  of  three  volumes:  the  Analytic, 
Programmer's  and  User's  Manuals.  Each  of  these  documents  is  self-contained. 

The  Analytic  Manual  consists  of  two  major  divisions.  The  first  section 
provides  e unified  treatment  of  the  mathematical  analysis  of  the  STEAP  II 
programs . The  general  problem  description,  formulation,  and  solution  ate 
given  In  a tutorial  manner.  The  second  section  of  this  report  supplies  the 
detailed  analysis  of  those  subroutines  of  STEAP  II  dealing  with  technical 
tasks. 


The  Programmer's  Manual  provides  the  reader  with  the  Information  he 
needs  to  effectively  modify  the  programs.  Both  the  overall  structure  of  the 
programs  as  well  as  the  computational  flow  and  analysis  of  the  Individual 
subroutines  la  described  in  this  manual. 

The  User's  Manual  contains  the  information  necessary  to  operate  the 
'programs.  The  Input  and  output  quantities  of  the  programs  are  described 
in  detail.  Example  cases  arc  also  given  and  discussed. 
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IHTRODUCTICW 


This  Progrunr'i  Manual  la  Intended  to  supply  tha  read  a r with 
sufficient  Information  about  the  STEAF  II  programs  to  enable  him  to 
efficiently  modify  them.  Both  the  overall  structure  of  the  programs 
and  the  computational  floe  of  the  Individual  subroutines  are  described 
In  this  annual. 

This  section  describes  the  contents  of  the  Prograaner's  Manual. 
Following  this  discussion  the  nomenclature  used  throughout  the  report 
Is  presented. 

The  third  section  of  tills  annual  describes  the  four  basic  com- 
ponents of  STEAF  II:  the  n-body  trajectory  propagation  package,  the 

nominal  trajectory  generator  NORMAL,  the  error  analysis  program  ER&AN, 
and  the  simulation  program  SINJL.  The  general  purpose  end  capability 
of  each  of  the  programs  is  briefly  suamarlsed. 

Chapter  4 of  this  volume  examines  the  STEAF  II  programs  from  a 
more  detailed  viewpoint.  The  operational  structure  of  each  of  the 
mein  components  is  described  at  the  subroutine  level.  The  individual 
subroutines  ere  defined  end  cross-referenced  according  to  the  three 
main  programs  of  STEAF  II. 

Chapter  5 contains  the  definitions  of  the  variables  appearing 
In  comseon  blocks  throughout  the  progress.  The  variables  ere  first 
listed  according  to  the  common  blocks  to  which  they  belong.  The  pro- 
grams requiring  each  of  these  coosaon  blocks  are  also  noted.  Following 
this  all  the  common  variables  ere  listed  in  alphabetical  order  with 
their  common  blocks  referenced.  Tables  detailing  the  definitions  of 
large,  frequently  referenced  cocoon  arrays  ere  also  provided. 

Chapter  6 comprises  the  bulk  of  this  volume.  Each  of  the  sub- 
routines Is  documented  In  detail  In  alphabetical  order.  The  purpose 
of  the  subroutine  Is  supplied.  Subroutines  supported  or  required 
by  the  subroutine  are  listed.  Arguments  end  interval  variables  of 
the  subroutine  ere  defined  and  usage  of  common  variables  Is  noted. 

The  mathematical  analysis  upon  which  the  subroutine  Is  based  Is  then 
discussed  In  full.  Finally  a flow  chart  of  the  computational  flow  of 
the  subroutine  Is  provided. 
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2.  NOMENCLATURE 


A.  Arabic  symbols 


Symbol 

• 

B»T 

B*E 

**xx 

■ 


Definition 

Semi-major  axis  of  conic 
Impact  plane  parameter 
Impact  plane  parameter 

Correlation  between  poaltlon/veloclty  state  and  aolve-for 
parameters 


Correlation  between  position/velocity  state  and  dynamic 
consider  parameters 

Correlation  between  position/velocity  state  and  measure- 
ment consider  parameters 


C 

x u 
8 


Correlation  between  solve- for  parameters  and  dynamic 
consider  parameters 


x v 
s 


Correlation  between  solve- for  parameters  and  measurement 
consider  parameters 


e Eccentricity  of  conic 

E Eccentric  anomaly 

f True  anomaly  on  conic 

G Observation  matrix  relating  observable s to  dynamic  consider 

parameter  state 


H Observation  matrix  relating  observables  to  position/velocity 

state 


i Inclination  of  conic  (reference  body  equatorial)  > 

J Measurement  residual  covariance  matrix 


K 

L 


M 


Kalman  gain  constant  for  position/velocity  state 

Observation  matrix  relating  observables  to  measurement 
consider  parameter  state 
Mean  longitude 

Observation  matrix  relating  observables  to  solve-for 
parameter  state 
Mean  anomaly 
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po>  |pd 


V 


n 

n 

n 


1 

2 

3 


P 


P 

a 

Q 


Q 


r 


& 


S 

s 


t 


t 


CA 


u 

o 


Dimension  of  solve-for  parameter  state 
Dimension  of  dynamic  consider  parameter  state 
Dimension  of  measurement  consider  parameter  state 

Semilatus  rectum  of  conic 
Probability  density  function 

Position/velocity  covariance  matrix 

Unit  vector  to  periapsis  of  conic 

Solve- for  parameter  covariance  matrix 

Dynamic  noise  covariance  matrix 

Execution  error  matrix 

Unit  vector  in  plane  of  motion  normal  to  P 
Radius 

> 

Radius  of  closest  approach 
Radius  of  sphere  of  Influence 

Measurement  noise  covariance  matrix 
Actual  noise  covariance  matrix 

Unit  vector  normal  to  T in  plane  perpendicular  to  appr 
asymptote  directed  south  ( R * S x T ) 

Target  planet  capture  radius 

s 

Kalman  gain  constant  for  solve-for  parameters 
Velocity  correction  covariance  matrix 
Approach  or  departure  asymptote 
Time  of  closest  approach  to  target  body 

Time  of  intersection  with  sphere  of  influence  of  target  body 
Time  interval 

Unit  vector  lying  In  ecliptic  plane  normal  to  . 

,0  S x K /s 

I*  ■ ■ ■ ‘ yr~t  where  K is  unit  normal  to  ecliptic  plane.) 

I 'Sx  K I 

Dynamic  consider  parameter  covariance  matrix 


*r  ■ 
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£ 


« * !> 


v 

V 


/s 

V 


X 

X 

X 


Velocity 

Maasureoant  consldar  parameter  covariance  matrix 

Target  parameter  covariance  matrix 

Unit  normal  to  orbital  plane 

Actual  position/velocity  state 

Targeted  nominal  position/velocity  state 

Moat  recent  nominal  position/velocity  state 


B.  Greek  Symbols 


i 

r 

* 

Av 

c 


9 


xx 


XU 


U 

— * 

V 


Auxiliary  parameters 

Guidance  matrix 

I light  path  angle 

Declination  of  vector 

Velocity  increment 

Measurement  residual 
Errors  in  target  parameters 

Variation  matrix  relating  position/velocity  variations  to 
target  conditions 

State  transition  matrix  partition  associated  with  solve-for 

parameters 

State  transition  matrix  partition  associated  with  dynamic 
consider  parameters 

Longitude  or  right  ascension 

Projection  of  target  condition  covariance  matrix  V into  the 


impact  plane 

Gravitational  constant  of  body 

1 , I 

Biased  almpolnt 

Sampled  measurement  noise 
True  anomaly 


J 
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C.  Subscripts 


Magnitude  of  gausslan  approximation  for  midcourse  ''rrection 
Correlation  coefficient 

Standard  deviation 

Launch  aeimuth 

Target  parameters 

Targeting  matrix 

State  transition  matrix  for  positlon/velocity  state 
latitude 

Sensitivity  matrix 

Matrix  relating  guidance  corrections  to  target  condition 
t viations 


Longitude  of  ascending  node 
Argument  of  periapsis 


Longitude  of  periapsis 


Control  variable 


Closest  approach  (r_4) 

CA 

Final  variable  (t^) 

Initial  variable  (t^,) 

Index  of  current  guidance  event  (P  ) 


D.  Superscripts 


Index  of  current  measurement  (P,  ) 

k 

Knowledge  variable  (P  ) 

K 

Solve- for  parameter  (x  ) 

6 

Sphere  of  influence  (tgj) 


Augmented  variable  ( ♦ ) 

T 

matrix  transpose  (♦  ) 


Matrix  inverse  ( ♦ ; 


i 


I 


V f '■ 


s>»td 


is*'- 


Variable  immediately  before  instant  (P"  or  v"  ) 

+ + 

Variable  immediately  after  instant  (?k  or  v ) 


8.  Abbreviations 
AU 
CA 

EKBAN 
FTA 
GHA 
J.D. 
km 
M/C 
NCKNAL 
POl 
Q-L 
S/C 
SF/C 

simul 

SOI 
SIM 
STEAP 
VM 
2VBP 
3VBP 


Astronomical  unit 

Closest  approach  to  reference  body 

Error  analysis  program 

Fixed  time  of  arrival  guidance  policy 

Greenwich  hour  angle 

Julian  date  (referenced  either  O^1"  or  1900^) 
Kilometers 

Midcourse  correction 

Nominal  trajectory  generation  program 

Probability  of  impact 

Quasilinear  filter  event 

Spacecraft 

Solve- for/consider 

Simulation  program 

Sphere  of  influence 

State  transition  matrix 

Space  Trajectories  £rror  Analysis  Programs 
Virtual  Mass 

Two  variable  B-plane  guidance  policy 
Three  variable  B-plane  guidance  policy 


u 
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3. 


SUMMARY  OF  MODES 


* 


The  Space  Trajectory  Error  Analysis  Programs  (STEAP)  consist  of 
four  subprograms  or  operational  modes.  The  first  mode,  used  sb  a 
subroutine  by  each  of  the  other  three  programs,  is  the  trajectory  mode 
VHP  by  which  an  n-body  . rajectory  (lunar  or  interplanetary)  is  propa- 
gated by  the  virtual  mass  technique.  The  second  mode  is  the  nominal 
trajectory  generator  or  targeter  (NOMNAL)  by  whfch  a lunar  or  inter- 
planetary trajectory  meeting  specified  conditions  is  determined.  The 
third  mode  IS  the  error  analysis  program  ERRAN  in  which  the  navigation 
and  guidance  characteristics  of  a nominal  trajectory  are  analyzed  by 
linearly  propagating  knowledge  and  control  covariances  along  the 
trajectory.  Finally  the  simulation  mode  SIMDL  tests  the  mathematical 
models  used  in  the  navigation  and  guidance  processes  by  modeling  the 
tracking  and  correction  of  an  "actual"  trajectory.  In  this  chapter 
a general  description  of  each  of  these  modes  will  be  provided. 

3.1  The  Virtual  Mass  Propagator  VHP 

The  dynamic  model  used  by  STRAP  is  supplie,  by  the  trajectory 
propagation  package.  The  only  external  forces  av  ting  upon  the  space- 
craft are  assumed  to  be  the  gravitational  forces  of  the  celestial 
bodies  considered  in  the  integration.  Both  the  spacecraft  and  the 
gravitational  bodies  are  assumed  to  be  point  masses  so  neither  space- 
craft attitude  nor  planet  aspherlcltles  are  considered. 

The  celestial  bodies  to  be  in  the  integration  are  specified  by 
the  user  and  may  include  the  sun,  any  of  the  nine  planets,  and  the 
earth* s mooa.  The  motion  of  the  planets  about  the  sun  and  the  moon 
about  the  earth  are  modeled  by  using  mean  ecliptic  elements  of  date. 

If  the  user  desires,  each  of  the  planetB  can  be  set  in  a fixed  ellipse 
referenced  to  some  epoch  for  speedier  computation. 

The  coordinate  system  used  in  the  integration  is  also  specified 
by  the  user.  The  options  available  are  either  heliocentric  ecliptic 
or  barycentric  ecliptic  (nominally  for  lunar  trajectories). 

The  actual  scheme  used  in  the  propagation  of  the  trajectory  in 
the  virtual  mass  or  yaricentric  technique  (see  reference  15).  No 
actual  integration  is  performed  by  the  trajectory  mode;  che  key  idea 
of  the  virtual  mass  technique  is  to  build  up  an  n-body  trajectory  by 
using  a sequence  of  conic  auctions  around  a moving  effective  force 
center  called  the  virtual  mass.  At  each  instantaneous  moment  along 
the  trajectory,  the  combined  effects  of  all  the  gravitational  bodies 
can  be  viewed  as  resulting  from  a fictitious  body  of  unique  magritude 
and  position  which  is  called  the  virtual  mass.  The  computational  pro- 
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cedure  then  uniu  that  over  a nail  time  interval  the  motion  of  the 
Specs  craft  can  be  represented  by  a two-body  conic  section  arc  relative 
to  this  virtual  eui.  The  complete  trajectory  is  thus  generated  by 
a aeries  of  nail  arcs  pieced  together  in  steps  while  updating  the 
position  and  Magnitude  cf  the  effective  force  center.  The  main  ad- 
vantage of  the  virtual  mass  technique  la  that  the  tedious  numerical 
Integration  of  the  differential  equations  is  avoided. 

Another  significant  feature  of  the  virtual  mass  technique  is  its 
flexibility.  By  varying  a staple  parameter  called  the  "accuracy  level* 
related  to  the  true  anomaly  increment  of  each  step,  trajectories  rang- 
ing from  a sequence  of  relatively  few  conic  section  arcs  corresponding 
to  a very  approximate  solution  to  those  requiring  a large  number  of 
area  corresponding  to  highly  accurate  solution*  may'  be  generated. 

12  The  nominal  Trajectory  Targe  ter  BUSAL 

HXfIAL  is  responsible  for  the  generation  of  a nominal  trajectory 
for  either  lunar  or  Interplanetary  missions.  The  method  of  propaga- 
tion in  either  case  is  the  virtual  mass  n-body  Integrator.  The  tra- 
jectory eey  be  processed  through  a series  of  deterministic  maneuvers 
Including  initial  or  injection  targeting,  subseouent  retargeting,  and 
finally  orbit  insertion.  A variety  of  target  parameters  are  available 
* fox  the  targeting  events,  loth  cop la oar  and  nonpLanar  strategies  are 
permitted  In  the  orbit  insertion  maneuver. 


If  an  Initial  state  for  the  problem  Is  known,  this  may  be  read 
in  to  start  the  trajectory.  Otherwise  NOMKAL  generates  Its  own  zero 
iterate.  In  interplanetary  missions  this  Involves  solving  the  Lambert 
Hm  of  flight  equation  for  the  massless  planet  trajectory  that  connects 
Has  desired  Initial  and  final  positions  in  the  specified  time  Interval, 
four  option a are  available  in  describing  these  reference  points: 


'Initial  Point 

launch  Planet 
launch  Planet 
Specified  Point 
Specified  Point 


Final  Point 

Target  Planet 
Specified  Point 
Target  Planet 
Specified  Point 


If  the  initial  point  la  referenced  to  the  launch  planet,  a launch  profile 
la  consulted  to  generate  a realistic  set  of  injection  condition  consis- 
tent with  the  heliocentric  trajectory. 


For  lunar  trajectories  a slightly  different  procedure  is  used. 

The  required  data  foT  the  lunar  zero  iterate  includes  specification  of 
the  desired  semi  major  axle  with  respect  to  the  moon,  radius  and  time  of 


closest  approach  to  the  mooc,  and  Inclination  to  the  lunar  equator, 
then  the  generation  of  the  aero  iterate  !■  accomplished  bp  first  target- 
ing a patched  conic  trajectory  and  then  a eultl -conic  trajectory  to  the 
deaired  cocall t Iona. 

▲ targeting  event  my  be  processed  1 mediately  after  obtaining 
a aero  iterate  state  or  at  any  point  along  the  noednal  trajectory. 

At  a targeting  avast  the  current  velocity  is  refined  to  yield  a tra- 
jectory satisfying  target  parameter  constraint  a.  The  possible  target 

per  meters  are: 


u 

TRF 

5. 

B*T 

9. 

SKA  Oeaar) 

2. 

T8I 

6. 

B*R 

10. 

XP 

3. 

TCS 

7. 

RCA 

11. 

TP 

4. 

TCA 

8. 

DC 

12. 

ZF 

The  targeting  Method  to  be  used  is  specified  by  the  user.  Either  s 
■odlfled  Bevton-Raphscn  algorithm  or  a steepest  descent/ conjugate  grad- 
ient technique  may  be  used. 

Orbit  insertion  events  are  also  available  In  NOKNAL.  At  s speci- 
fied time  the  spacecraft  state  relative  to  the  target  body  is  computed. 
The  resulting  conic  trajectory  relative  to  the  target  body  is  then 
compared  with  the  desired  orbit  to  determine  the  optimal  time  to  make 
the  Insertion  and  the  required  correction.  At  the  proper  time  the 
velocity  correction  Is  then  implemented.  Two  strategies  are  permitted 
In  tite  orbit  insertion  computation: 

Cop  Lenar  - The  desired  sendaajor  sals,  eccentricity,  and 

per  is pals  shift  of  a cop Is  oar  orbit  are  specified. 

■ocplanar  - The  desired  plane  of  the  post-insertion  stat-  Is 
specified  along  with  nominal  values  of  the  orbit 
elements. 

The  targeted  correction,  orbit  Insertion  correction,  or  an  exter- 
nally supplied  correction  may  be  executed  If  desired.  Two  Models  are 
available  for  this  implementation;  a simple  impulsive  addition  or  a 
mots  complex  multiple  pulse  nodal. 

The  program  will  integrate  and  record  the  periodically-corrected 
nominal  trajectory  until  reaching  a termination  time  specified  by  the 
esar. 

3.3  The  Error  Analysis  Prefers*  ERRA5  * 

The  error  analysis  progrea  ERRAH  is  a p re  flight  mission  analysis 
tool  used  primarily  to  propagate  covariance  matrices  along  selected 
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the  guidance  event  la  the  eoat  complex  event  and  yields  much 
useful  information  for  preflight  minion  ana ly ala.  Several  types  of 
guidance  eventa  are  available  In  ERRAN.  At  a midcourae  guidance 
•vent  the  user  can  choose  from  three  midcourae  guidance  policies. 

The  mid coarse  guidance  event  can  also  be  constrained  to  satisfy 
planetary  quarantine  requirements.  At  an  orbital  insertion  guidance 
•vent  the  user  can  choose  from  two  Insertion  policies.  Options  are 
also  available  for  changing  target  conditions  in  mid-flight  and  re- 
targeting the  trajectory  using  nonlinear  techniques,  or  for  simply 
applying  an  externally- supplied  or  precomputed  AV  at  some  arbitrary 
trajectory  time.  Two  thrust  models  are  available:  impulse  and  impulse 

series.  Execution  error  statistics  are  generated  using  an  error  codel 
defined  by  a proportionality  error,  a resolution  error,  and  tvro  point- 
ing angle  errors.  At  a midcourse  guidance  event  in  ERRAN  ve  also 
compute  a statistical  AV  and  the  target  condition  covariance  matrix 
both  before  and  after  the  midcourse  correction. 

;•  3.4  The  Simulation  Program  SIMUL 

The  simulation  program  SIMUL  is  the  most  complex  program  in  the 
STRAP  set  of  programs.  In  S1MJL  the  validity  of  the  navigation  and 
guidance  process  is  examined  by  simulating  an  actual  mission.  Space- 
craft state  estimates  are  generated  In  SIMUL,  bb  veil  as  covariance 
V matrices.  The  results  given  by  the  error  analysis  program  ERRAN  be- 

come meaningful  only  when  SIMUL  shows  that  the  estimated  spacecraft 
trajectory  converges,  within  reasonable  bounds  specified  by  the  co- 
variance  matrix,  to  the  sloulated  actual  trajectory. 

All  state  transition  matrix,  parameter  augmentation,  and  measure- 
ment options  described  in  section  3.3  are  also  available  in  SIMUL. 

As  In  ERRAN,  the  computational  procedure  In  SIMUL  is  divided  into  basic 
cycle  computations  and  event  computations.  The  SIMUL  basic  cycle  is 
concerned  with  the  generation  of a state  estimates  and  an  actual  tra- 
jectory, together  with  all  quantities  generated  In  the  ERRAN  basic 
cycle.  Eigenvector  and  prediction  eventa  in  SIKLIL  involve  all  com- 
putations performed  in  the  corresponding  ERRAN  events.  In  addition, 
the  SIMUL  prediction  event  propagates  state  estimates  forward  to  the 
time  to  which  we  are  predicting. 

All  options  available  in  the  ERRAN  guidance  event'  (see  section 
3.3)  are  alao  available  in' the  SUfJL  guidance  event.  The  treatment 
•f  the  midcourse  guidance  event,  however,  is  different  in  several 
reapecte.  First,  since  an  estimated  spacecraft  state  is  generated 
In  SIMUL,  au  actual  midcourae  AF  can  be  computed , rather  than  a 
. statistical  AF  as  In  ERRAN.  Also,  sil  linear  midcourse  AV1 s computed 
In  SDCJL  can  be  recomputed  using  nonlinear  techniques.  Finally,  since 
•a  actual  trajectory  is  generated' In  SIMUL,  actual  target  errors  after 
the  midcourae  correction  are  also  computed. 

* ■ * 
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interplanetary  ot  lunar  trajectories.  Three  main  quantitative  results 
are  available  from  EMAHt  y»)  knew  ledge  covariances,  which  provide 
a Measure  of  haw  well  the  actual  trajectory  is  known  after  each  measure* 
•ent  Is  pro ceased;  Q>)  control  covariances,  which  when  propagated 
forward  to  rhe  target  provide  a measure  of  how  veil  the  nominal  target 
conditions  will  be  satisfied  by  the  actual  trajectory;  and  (c)  statisti- 
cal midcourse  A7*s. 

State  transition  matrices  are  required  to  propagate  covariance 
matrices  over  en  arbitrary  Interval  of  time.  Three  methods  are  avail- 
able for  computing  die  6x6  position/velocity  state  transition  matrix. 

The  first  two  methods,  which  are  analytical  methods,  are  analytical 
patched  conic  and  analytical  virtual  mass.  The  third  method  uses 
numerical  differencing  to  compute  the  state  transition  matrix.  To 
Increase  the  accuracy  of  the  analytical  techniques  over  long  time 
Intervals  a state  transition  matrix  cascading  option  is  also  available. 
Augmented  parameter  state  transition  matrices  are  always  computed 
using  numerical  differencing. 

Measurements  are  processed  in  an  optimal  recursive  consider  filter. 

Op  to  23  dynamic  and  measurement  parameters  may  be  solved- for  or  con- 
sidered. The  dynamic  parameters  Include  biases  in  .e  gravitational 
constants  of  the  Sun  and  the  target  planet  and  biases  In  the  6 orbital 
elements  of  the  target  planet.  Measurement  biases  Include  biases  In 
the  locations-  of  the  3 earth-based  tracking  stations,  and  biases  in 
all  measurements.  Available  measurement  types  are  range,  range-rate, 
star-planet  angles,  and  apparent  planet  diameter  measurements.  Measure- 
ment noise  for  each  measurement  type  is  assumed  to  be  constant. 

The  computational  procedure  in  BEHAN  Is  divided  into  basic  cycle 
computations  and  event  computations.  Basic  cycle  computations  arc 
concerned  vith  the  propagation  of  covariances  forward  to  a measurement 
time  and  processing  the  measurement.  Events  refer  to  a set  of  specialized 
computation,  not  directly  concerned  vith  measurement  processing,  vhich 
can  be  scheduled  to  occur  at  arbitrary  times  along  the  trajectory. 

The  three  events  available  in  EEEAN  are.  eigenvector  events,  pre- 
diction events,  and  guidance  events.  At  an  eigenvector  event  the  posi- 
tion and  velocity  partitions  of  the  knowledge  covariance  matrix  are 
diagonalized  to  reveal  geometric  Information  about  the  size  and  orienta- 
tion of  the  position  and  velocity  navigation  uncertainties.  Associated 
- fayperalllpsolds  arm  also  computed.  At  a prediction  event  the  most 
recent  covariance  matrix  is  propagated  forward  to  some  critical  tra- 
jectory time  to  determine  predicted  navigation  uncertainties  in  the 
absence  of  further  measurements. 
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A quasi -linear  filtering  event,  not  defined  in  ERBAK,  is  also 
available  in  8XKJL.  At  a quasi -linear  filtering  event  the  most 
recent  nominal  trajectory  is  updated  by  using  the  most  recent  state 
estimate,  this  permits  more  accurate  computation  of  state  transition 
and  observation  matrices  which  in  turn  helps  prevent  the  occurrence 
of  divergence  of  the  state  estimate. 
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. nsscaiPTK*  gf  subroutihes 

4.1  Index  of  Subroutine! 

The  subroutines  making  up  the  STEAP  programs  are  listed  according 
to  category  in  Table  4.1  following.  The  programs  are  divided  into  three 
general  classes:  the  subroutines  making  up  the  virtual  mass  propaga- 

tion package  used  by  the  three  basic  programs,  the  additional  subroutines 
required  by  KCMXAL  and  then  the  additional  subroutines  used  in  ERBAH 
and  SMTL.  In  Table  4.  2 the  subroutines  are  listed  again  by  category 
with  a brief  summary  of  their  purpose.  Thus  Table  4.2  can  be  used  to 
track  down  the  subroutine  in  which  a specific  task  la  performed.  The 
individual  subroutines  are  then  documented  In  ’stall  in  alphabetical 
order  in  Chapter  6. 

4.2  VHP  Subroutine  Hierarchy 

The  executive  program  for  the  virtual  maaa  n-body  trajectory 
propagator  la  named  VKP.  The  reader  should  investigate  the  detailed 
analysis  and  flow  chart  of  VKP  in  the  individual  subroutine  documenta- 
tion in  Chapter  6.  The  summaries  of  the  subroutines  of  VKP  are  given 
in  the  first  part  of  Table  4.2.  The  subroutines  are  conveniently 
divided  into  four  general  classes: 


Conic  Subroutines  based  on  conic  approximations 

Kphenerls  Subroutines  used  to  compute  the  positions  and 

velocities  of  the  gravitational  bodies  at 
different  tinea  aloug  the  trajectory 


Propagation  Subroutines  used  in  the  direct  computation  of 
the  trajectory  of  the  spacecraft  moving  under  ’ 
the  influence  of  all  the  gravitational  bodies 


Input/ Output  Subroutines  processing  either  the  input  or 

output  from  the  virtual  mass  trajectory  propagation 


The  calling  hierarchy  of  the  virtual  mass  programs  is  given  In  Figure 
4.1.  All  subroutine!  within  a given  block  are  st  an  identical  level 
relative  to  the  calling  hierarchy  unless  they  are  enclosed  by 
parentheses.  Subroutines  within  parentheses  asu  called  by  the  pre- 
ceding subroutine.  Otherwise  calls  to  subroutines  are  indicated  by 
arrows.  -Thus  all  subroutines  within  blocks  connected  directly  to 
VKP  are  called  directly  from  VKP. 
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4.3  NCMNAL  Subroutine  Hierarchy 

The  first  of  the  three  Independent  programs  of  STRAP  is  the 
nominal  trajectory  targeter  NCMNAL.  The  main  program  controlling 
the  processing  of  the  program  goes  under  the  same  name.  Reference 
Is  made  to  the  complete  documentation  of  NCMNAL  in  Chapter  6.  The 
subroutine  hierarchy  of  NCMNAL  la  provided  in  Figure  4,2.  BLOCK  DATA 
loads  the  planetary  constants  used  by  many  of  the  subroutines}  it  ia 
therefore  available  to  all  subroutines  of  NOMNAL.  PRELIM  reads  the 
Input  dsta  art d calls  ZERIT  for  the  computation  of  a zero  iterate  if 
necessary.  ZERIT  in  turn  calls  HELLO  or  LUNA  for  the  actual  computa- 
tion Of  the  Interplanetary  or  lunar  zero  iterate  respectively. 

NCMNAL  calls  TRJTRY  for  the  propagation  of  the  nominal  trajectory 
between  guidance  maneuvers.  TRJTKY  of  course  calls  the  VHP  package 
described  in  Figure  4. 1.  NCMNAL  calls  CIDANS  for  the  actual  process- 
ing of  any  guidance  event.  CIDANS  calls  VHP  to  initialize  arrays 
for  the  other  events.  If  a targeting  event  requires  a zero  Iterate 
computation  ZERIT  is  called.  Subroutine  TARGET  controls  the  target- 
ing events;  INSERS  controls  the  insertion  decision  computations. 

NCMNAL  calls  EX CUTE  for  the  execution  of  either  type  event. 

4.4  ERRAN  and  SIMJL  Hierarchy 

The  calling  hierarchy  of  the  subroutines  used  in  ERRAN  and  SIMJL 
la  shown  in  Figures  4.3  and  4.4,  respectively.  The  similar  structure 
of  ERRAN  and  SIMJL  is  apparent  from  these  two  figures.  All  subroutines 
can  be  classified  under  one  or  more  of  the  following  categories: 

Input,  output,  basic  cycle  (measurement  processing),  or  events. 

The  calling  hierarchy  of  the  subroutines  is  indicated  by  the 
level  of  the  subroutine  In  figures  4.3  and  4.4.  A given  subroutine 
calls  all  those  subroutines  which  are  directly  connected  to  the 
subroutine  and  are  located  on  the  next  lower  level.  For  the  purposes 
of  clarity,  the  lowest  level  subroutine  on  a given  branch  is  enclosed 
In  parentheses.  BLOCK  DATA  is  shewn  connected  to  the  main  hierarchy 
with  a daahed  line  to  Indicate  that  the  constants  stored  In  BLOCK  DATA 
are  available  to  all  subroutines. 

The  complete  documentation  of  all  subroutines  used  In  ERRAN 
and  SDQJL  la  given  In  Chapter  5 of  this  document. 
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Table  4.1  BTEAP  II  Subroutines 


X.  Virtual  Mass 

Subroutines 

A.  Conic 

B.  Epheoerls 

C.  Propagation 

D.  Ir put /Output 

1.  CABAL 

1.  TIME 

1.  VHP 

1.  TRAPAR 

2.  ELCAB 

2.  BLOCK  DATA 

2.  ESTMT 

2.  INPUTZ 

3.  IMPACT 

3.  ORB 

3.  VECTOR 

3.  PRINT 

4.  EFHEM 

4.  VMASS 

4.  SPACE  > 

5.  CENTER 

5.  NEW POE 

6.  PECK) 

7.  EULMX 

IX.  NCKHAL  Subroutines 

A.  Executive 

B.  Zero 

Iterate 

C.  Targeting 

D.  Insertion 

1.  NCKNAL 

1.  ZERXT 

7.  LUNCON 

1.  TARGET 

1.  INSERS 

2.  PRELIM 

2.  HELIO 

8.  THAR 

2.  TAROPT 

2.  COPINS 

3.  TRJTRY 

3.  LAUNCH 

9.  ..ULCON 

3.  TABMAX 

3.  NON INS 

4.  G I DANS 

4.  ELITE 

10.  MULTAR 

4.  DESENT 

E.  Pulsing  Arc 

5.  Exams 

5.  8 ERIE 

11.  BATCON 

5.  kXtin 

1.  PREPUL 

• 

6.  LUNA 

12.  MATH 

2.  PULS EX 

3.  PERHEL 

4.  (BATCON) 

III.  ERRAH  and  SIMUL  Subroutines 


A.  Executive 

C.  Navigation 

D.  Event 

X.  Input/Output 

1.  ERRAH 

1.  NAVM 

1.  SETEVN 

1.  DATA 

2.  SIMUL 

2.  SCHED 

2.  DETEVS 

2.  DATA1 

3.  TRAKM 

3.  PRED 

3.  DATAS 

B.  Dynamic  Model 

4.  TEARS 

4.  PRESXM 

4.  DATA  IS 

1.  NTM 

5.  TARPRL 

5.  QUASI 

5.  CONURT 

2.  NTMS 

6.  SIAPRL 

6.  GUHJK 

6.  TRANS 

3.  PSIM 

7.  KENO 

7.  GUIS IK 

7.  CORREL 

4.  NDTM 

8.  ken os 

8.  GUID 

8.  STM PR 

3.  PLND 

9.  BIAS 

9.  GUIS 

9.  SUBI 

6.  MUKD 

10.  RHUM 

10.  VARADA 

10.  TITLE 

7.  PC7M 

•11.  DYNO 

11.  VARS  IK 

11.  PRINT3 

8.  CCKCZ 

12.  PYNOS 

12.  PARTL 

12.  PRNTS3 

9.  CASCAD 

13.  GHA 

13.  BIAIK 

13.  PRINT4 

14.  JACOBI 

14.  POICCK 

14.  PRNTS4 

15.  ETBlfi 

16.  LIGHT 

15.  QCCKP 

16.  NCSfLlN 

17.  PULCOV 

18.  EXCUT 

19.  EXCUTS 
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Figure  4.1  Subroutine  Hierarchy  of  VHP 
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Figure  4.  3b  Subroutine  Hierarchy  of  KRRAN  (contln*  id) 


Subroutine  hierarchy  continued  in  Figure  4.1. 
Subroutine  hierarchy  continued  in  Figure  4.2. 


GDIS  CAUL,  CORRKL,  PUB  SIM 


Figure  4,4b  Subroutine  Hierarchy  of  SIMUL  (continued) 
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Table  4.2  6TEAP  II  Subroutine  Summaries 


Subroutine 


Pune  t ion 


Z.  Virtual  Mass  Subroutines 

A.  Cooic 

1.  CAUL 

2.  ELGAR 

3.  IMPACT 

B.  Efheaerli 

1.  TIME 

2.  BLOGS  DATA 

3.  CEB 

4.  EPHEH 

5.  CENTER 

6.  PECEQ 

7.  E01KX 

C.  Propagation 

1.  VHP 

2.  ESTMT 

3.  VECTOR 

4.  VMASS 

D.  Input/Output 

1.  TRAPAR 

2.  IKPUTZ 

3.  PRINT 

4.  SPACE 

5.  HBTFGE 


Convert  Cartesian  state  to  conic  elements 
Convert  conic  elements  to  Cartesian  state 
Compute  impact  plane  parameters 

Convert  J.D.  to  calendar  date  or  vice  versa 
Set  gravitational  body  eph merle  constants 
Compute  orbital  elements  of  gravitational 
body  at  given  time 

Compute  inertial  state  of  gravitational  body 
at  given  time 

Convert  state  of  bodies  to  barycentrlc  coordinates 
Compute  transformation  matrix  from  ecliptic 
to  equatorial  coordinates 
Compute  rotation  matrix 

Executive  routine  for  virtual  mass  trajectory 
propagation 

Determine  final  position  and  magnitude  of  VM 
on  current  step 

Compute  the  spacecraft  final  position  on  current 
step 

Determine  VM  data  for  current  step 

Compute  and  ;^_rrd  navigation  parameter  data 
Convert  input  data  into  VHP  compatible  form 
Print  output  of  VM  trajectory 
Space  paper  for  output  purposes 

Record  headings  for  each  new  page  in  VM  printout 


II.  MURAL  Subroutines 

A.  Executive 

1.  KCHKAL 

2.  PRELIM 

3.  TUTXY 

4.  GIDARS 

5.  EXCOTE 

B.  Zero  Iterate 

1.  2ERIT 

2.  HELLO 

3.  LAUNCH 

4.  7LITE 

5.  SERIE 

6.  LORA 

7.  msecs 
6.  LUHTAR 
9.  MOLOCH 


Control  nominal  trajectory  generation  (Main 
program) 

Perform  preliminary  work  for  KQKNAL 
Propagate  virtual  mass  trajectory  to  next  event 
Control  computation  of  trajectory  correction 
Control  execution  of  trajectory  correction 

Control  computation  of  zero  iterate 
Compute  heliocentric  phase  of  interplanetary 
zero  iterate 

Compute  launch  phase  of  interplanetary  zero 
iterate 

Lambert  time  of  flight  equation  solver 
Bsttln  generalized  function  solver 
Ccutr  1 lunar  zero  iterate  generation 
Generate  patched  conic  lunar  trajectory 
Control  patched  conic  targeting 
Generate  lunar  multi-conic  trajectory 
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Table  4.2  STRAP  II  Subroutine  1u— riM  (Coat'd) 


10.  MULXUL 

11.  BATCOS 

C.  Targeting 

1.  TARGET 

2.  TAEOPT 

3.  TAEKAX 

4.  DESEST 

5.  HA  TIN 

D.  Inaertlon 

1.  INSERS 

2.  COPINS 

3.  SONINS 

E.  Pulsing  Arc 

1.  PREPUL 

2.  PULS EX 

3.  PERHEL 

4.  (BATCOS) 


Control  multi-conic  targeting 
Propagate  conic  trajectory 

Control  e-body  targeting 
Sat  up  target  parameter  arrays 
Compute  Newton- Raphscm  targeting  matrix 
Compute  steepest  descent-conjugate  gradient 
corrections 

Compute  matrix  inverse 

Control  orbit  insertion  computations 
Compute  coplanar  orbit  insertion 
Compute  non planar  orbit  Insertion 

Perform  preliminary  work  for  multiple  pulses 
Execute  pulsing  arc 

Propagate  perturbed  heliocentric  conic 
Propagate  conic  trajectory 


ITT . RERAN  and  SDiUL  Subroutines 

A.  Executive 

1.  ERBAN 

2.  SDfUL 

B.  Dynamic  Model 

1.  KIM 

2.  NIKS 

3.  FSIM 

4.  NDTM 

5.  PLHD 

6.  KDND 

7.  PCIK 
£ CCHC2 
9.  CASCAD 


Control  error  analysis  program  (Main  program) 

Control  simulation  program  (Main  program) 

Control  generation  of  trajectory  data  for  RERAN 

Control  generation  of  trajectory  data  for  SIMUL 

Control  computation  of  state  transition  matrix 
(STM) 

Compute  unaugmented  partltoln  of  STM  by  numerical 
differencing 

Compute  STM  partition  associated  with  ephemeris 
biases 

Compute  STM  partition  associated  with  gravitational 
constants 

Compute  unaugmented  partition  of  STM  by  patched 
conic  technique 

Compute  unaugmented  partition  of  SIM  by  virtual 
mass  technique 

Compute  unaugmented  partition  of  STM  by  cascaded 
Darby  matrixants 


C.  Navigation 


1.  NAVM 

2.  SCHED 

3.  TRAKM 

4.  TEARS 

5.  TAEFRL 

6.  STAF1L 

7.  KEKO 


Propagate  covariance  matrices  between  measurements 
and  between  events 

Select  next  measurement  tlx'  from  measurement 
schedule 

Compute  observation  matrices 

Compute  observation  matrices  and  actual  measure- 
ments 

Compute  target  planet  position  partlals 

Compute  station  location  position  and  velocity 
partlals 

Compute  assumed  measurement  noise  covariance 
matrix 
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Tab  La  4.2 


5STKAP  II  Bub  routine  Summaries  (Coni' d) 


6.  HEH08 

Compute  assumed  and  actual  measurement  roiie 
covariance  matrices 

9.  BIAS 

Compute  actual  measurement  blae 

10.  mi 

Generate  random  numbers 

11.  DYSO 

Compute  dynamic  noise  covariance  matrix 

12.  DYB08 

Compute  dynamic  noise  covariance  matrix  and 
actual  dy  .aralc  noise 

13.  CHA 

Compute  Greenwich  hour  angle 

14.  JACOBI 

Compute  eigenvalues  and  eigenvectors  of  a mxatrlx 

15.  HYELS 

Compute  hyperell ipBoids 

14.  BIGHT 

Control  computation  of  eigenvalues , eigenvectors 
and  hyperellipsoids 

. Event 

1.  SETEVN 

Perform  computations  common  to  most  events  in 
ERRAN 

2.  SETEVS 

Perform  computations  common  to  most  events  in 
SIMUL 

3.  pred 

Ferform  prediction  event  in  ERRAN 

4.  PRES  IK 

Perform  prediction  event  in  SIMUL 

5.  QUASI 

Perform  quasi- linear  filtering  event  in  SIMUL 

6.  GUIDH 

Perform  guidance  event  in  ERRAN 

7.  GUIS IK 

Perform  guidance  event  ih  SIXUL 

8.  GU1D 

Compute  guidance  and  variation  matrices  in  ERRAN 

9.  GUIS 

Compute  guidance  and  variation  matrices  in  SIMUL 

10.  VABADA 

Compute  3VBP  variation  matrix  in  ERRAN 

11.  VARS  IK 

Compute  3VBP  variation  matrix  in  SIMUL 

12.  PABTL 

Compute  partials  of  B*T,  B*R  wrt  6tate 

13.  BIAIK 

Perform  biased  aimpoint  guidance 

14.  POIC® 

Compute  probability  of  impact 

15.  QCWP 

Compute  execution  error  covariance  matrix 

16.  NONLIN 

Control  execution  of  nonlinear  guidance  events 

17.  FULCCV 

Propagate  covariance  matrix  across  a series  of 

pu  ises 

18.  EXCUT 

Control  execution  of  pulsing  arc  in  ERRAN 

19.  EXCUTS 

Control  execution  of  pulsing  arc  in  SIMUL 

. Input/Output 

1.  BATA 

Perform  preliminary  computations  and  read  data 
in  ERRAN 

2.  DATA1 

Continuation  of  DATA 

3.  DATAS 

Perform  preliminary  computations  and  read  data 

• 

in  SIMUL 

4.  DATAS 1 

Continuation  of  DATAS 

5.  CCNVRX 

Convert  JFL  injection  conditions  to  Cartesian 
components 

6.  TRANS 

Compute  coordinate  transformations 

7.  COxBEL 

Compute  and  print  correlation  matrix  partitions 
and  standard  deviations 

8.  STM  PR 

Print  STM  partitions 

9.  SUB1 

Compute  position  and  velocity  magnitudes 

10.  TITLE 

Print  titles 

11.  PRINT 3 

Print  basic  cycle  data  in  ERRAN 

12.  PRINTS 3 

Print  ERRAN  summary 

13.  PRINT4 

Frlnt  basic  cycle  data  in  SIMUL 

14.  PBIBTS4 

Print  SIMUL  stannary 

5«  CONNOR  VARIABLE  DEFINITIONS 


THE  BULK  OP  THE  VARIABLES  USEO  IN  THE  STEAP  PROGRAMS  ARE  C^.MON 
VARIABLES*  THESE  VARIABLES  ARE  DEFINED  IN  DETAIL  IN  THIS  CHAPTER. 
THE  FIRST  SECTION  LISTS  THE  COMMON  BLOCKS  IN  ALPHABETICAL  ORDER. 

THE  PROGRAMS  (NOMNAl,  ERRAN,  SIHUL)  USING  EACH  COMMON  BLOCK  A«  .£ 
HOTEO.  THE  VARIABLES  OF  EACH  COMMON  BLOCK  ARE  DEFINED  IN  THE  OROER 
THAT  THEY  APPEAR  IN  THE  COMMON  BLOCK. 

THE  SECOND  SECTION  LISTS  ALPHABETICAM  Y ALL  VARIABLES  APPEARING 
ANYHHERE  IN  COMMON.  THE  COMMON  BLOCK  TO  WHICH  THE  VARIABLE  BELONGS 
IS  REFERENCED  THE  DEFINITION  OF  THE  VARIABLE  IS  THEN  GIVEN. 

THE  THIRD  SECTION  SUPPLIES  THE  DEFINITIONS  OF  SEVERAL  LARGE 
FREQUENTLY  REFERENCED  ARRAYS.  THE  ELEMENT  APPEARING  IN  EACH  COMPON- 
ENT OF  EACH  ARRAY  IS  NOTEO. 
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*•1  COMMON  VARIABLES  BY  BLOCKS 


IN  THIS  SECTION  COMMON  BLOCKS  APPEARING  IN  STEAP  ARE  LISTEO  IN 
ALPHABETICAL  OROER.  VARIABLES  WITHIN  THESE  BLOCKS  ARE  wISTED  AND 
QEFXNEO  IN  THE  OROER  THEY  APPEAR  IN  THE  PROGRAM. 


/BAIN  / MOOE  ERRAN,  SIMUL 


ATRANSC6) 

TNPRC3J 

TNOMC (7) 

TN0MBC3I 

PHIZ (3,3) 

VINE 

TINJ 

PROS  I 

A0A(3V6) 

T3C10) 

IBAG 

IPO 

IGUIOCBf 10> 
II 


CLOSEST  APPROACH  STATE 
MOST  RECENT  TARGET  STATE 

NOMINAL  CLOSEST  APPROACH  TARGET  STATE, INCL.  TINE 

NOMINAL  B-PLANE  TARGET  STATE 

INVERSE  OE  VARIATION  MATRIX  PARTITION 

HYPERBOLIC  EXCESS  VELOCITY 

INJECTION  TINE 

ALLOWABLE  PROBABILITY  OF  IMPACT 

VARIATION  MATRIX 

ARRAY  OF  GUIDANCE  EVENT  TIMES 

NOT  USED 

NOT  USED 

ARRAY  OF  GUIDANCE  EVENT  CODES 
GUIDANCE  EVENT  COUNTER 
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/BIK  / MODE  1 NOMNAL,  ERRAN,  SIMUL 


T 

PMASS  (ill 
CN(ftO) 

ST(5Q> 

EMNC15) 

SMJR(IB) 

RAOZUS(ll) 

RHASS(ii) 

ELKNTCM) 

SPKERE(li) 

XP(6) 

NO (11) 


TRAJECTORY  TIME  IN  DATS 

GRAVITATIONAL  CONSTANTS  OF  PLANETS  IN 
A.U.**3/0AY#*2 

CONSTANTS  USED  TO  CALCULATE  THE  ORBITAL 

ELEMENTS  OF  THE  FIRST  FIVE  PLANETS 

(SEE  LARGE  ARRAY  DEFINITIONS  IN  SECTION  5.3) 

CONSTANTS  USED  TO  CALCULATE  THE  ORBITAL 

ELEMENTS  OF  THE  LAST  FOUR  PLANETS 

(SEE  LARGE  ARRAY  DEFINITIONS  IN  SECTION  5,3) 

THE  CONSTANTS  USED  TO  CALCULATE  THE  ORBITAL 
ELEMENTS  OF  THE  MOON 

(SEE  LARGE  ARRAY  DEFINITIONS  IN  SECTION  5.3) 

CONSTANTS  USED  TO  CALCULATE  THE  SEMI-MAJOR 
AXES  OF  THE  PLANETS 

THE  RADIUS  OF  A GIVEN  PLANET  IN  A.U. 

THE  RELATIVE  GRAVITATIONAL  CONSTANT  OF  A 
STATED  PLANET  KITH  RESPECT  TO  THE  SUN 

CONTAINS  THE  ORBITAL  ELEMENTS  OF  THE  PLANETS 
(SEE  LARGE  ARRAY  DEFINITIONS  IN  SECTION  5.3) 

THE  SPHERES  OF  INFLUENCE  OF  THE  PLANETS  IN 
A.U. 


THE  POSITION  AND  VELOCITY  OF  A PLANET  IN 
INERTIAL  ECLIPTIC  COORDINATES 

AN  ARRAY  OF  PLANET  CODES  BEING  USED  TO 
GENERATE  THE  VIRTUAL  MASS  TRAJECTORY 


V 


/CNTRIC/  MODE  I NQMNAL,  ERRAN,  SIHUL 


I BART 


REFERENCE  COORDINATE  SYSTEM  CODE 
*0  HELIOCENTRIC  COORDINATES 
«i  BARYCENTRIC  COORDINATES 


ICOORO 


NON- FUNCTIONAL  IN  ERROR  ANALYSIS  HOOE 


INITIAL 


NON*  FUNCTIONAL  IN  ERROR  ANALYSIS  MODE 


/ COM  / HOOEt  NOMNALf  ERRAN,  SIHUL 


V *16,7) 


F<**,<») 


AN  ARRAY  WHICH  STORES  PERTINENT  VECTORS  USED 
IN  THE  CALCULATION  OF  THE  VIRTUAL  MASS 
TRAJECTORY  (SEE  LARGE  ARRAY  OEFNS  IN  SECT  5.3) 

CONTAINS  THE  POSITIONS  AND  VELOCITIES  OF  THE, 
PLANETS  AT  A SPECIFIED  TIME  PLUS  THE  POSITIONS 
AND  VELOCITIES  OF  THE  SPACECRAFT  RELATIVE  TO 
THE  PLANETS  (SEE  LARGE  ARRAY  DEFNS  IN  SECT  5.3) 

THE  VALUE  OF  THE  MATHEMATICAL  CONSTANT  PI 

THE  NUMBER  OF  DEGREES  PER  RADIAN 


ITRAT 


IN  INTERNAL  CODE  USED  TO  DETERMINE  HOW  MANY 
ITERATIONS  HAVE  BEEN  ACCOMPLISHED  IN  THE 
VIRTUAL  MASS  PROCEDURE 


(COUNT 


A CODE  WHICH  SPECIFIES  WHETHER  PRINT-OUT  IS 
TO  OCCUR  AFTER  THIS  TIHE  INCREMENT 


INCMNT 


NUMBER  OF  INCREMENTS  USED 


INCPR 


SPECIFIES  AFTER  HOW  MANY  TIME  INCREMENTS 
PRINT-OUT  IS  TO  OCCUR 


DETERMINE  WHETHER  THE  ABOVE  OPTION  IS  TO  BE 
USED 

A CODE  WHICH  DETERMINES  IF  PRINT-OUT  IS  TO 
OCCUR  AFTER  A SPECIFIED  NUMBER  OF  DAYS 
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NBOOYX 

NBOOT 
IPRT  (*»> 

KL 

IPG 

LINCT 

LINPGE 


NUMBER  OF  BODIES  CONSIDERED  IN  VIRTUAL  MASS 
TRAJECTORY 

BASED  ON  ABOVE  VALUE — EQUAL  TO  %*NB0DYI-3 

SPECIFIES  PRINT  OPTIONS  CIN  STEAP  TRAJECTORY 
THIS  OPTION  IS  OMITTED.  WHEN  PRINT-OUT  OCCURS 
ALL  SECTIONS  ARE  AUTOMATICALLY  PRINTED) 


PROBLEM  NUMBER 
PAGE  NUMBER 
LINE  COUNT 
LINES  PER  PAGE 


(NOMNAL  ONLY) 
(NOMNAL  ONLY) 
(NOMNAL  ONLY) 
(NOMNAL  ONLY) 


/CONST  / MODE!  ERRAN,  SIMUL 


OMEGA 

ROTATION  RATE  OF  EARTH 

EPS 

OBLIQUITY  OF  EARTH 

SALt  3) 

ALTITUDES  OF  STATIONS 

SLAT  (3) 

LATITUDES  OF  STATIONS 

SLON(3) 

LONGITUDES  OF  STATIONS 

DNCN (3) 

CONSTANTS  fROM  WHICH  DYNAMIC  NOISE  IS  COMPUTED 

MNCNC12) 

MEASUREMENT  NOISE  CONSTANTS 

NST 

NUMBER  OF  STATIONS  TO  BE  USEO  (MAXIMUM  3) 

/C0NST2/  MOOES  ERRAN,  SIMUL 


UST (3)  DIRECTION  COSINE  ARRAYS  OF  THREE  REFERENCE  STARS 

VSTC3J  DIRECTION  COSINE  ARRAYS  OF  THREE  REFERENCE  STARS 

MSTC3I  DIRECTION  COSINE  ARRAYS  OF  THREE  REFERENCE  STARS 

FOP  OFF-OIAGONAL  ANNIHILATION  VALUE  FOR  POSITION 

EIGENVALUES 

FOV  OFF-OIAGONAL  ANNIHILATION  VALUE  FOR  VELOCITY 

EIGENVALUES 


/C0NST3S  MODES  ERRAN,  SIMUL 


OELAXS  TARGET  PLANET  SEMI-MAJOR  AXIS  FACTOR  USED  IN 

NUMERICAL  DIFFERENCING 

DELECC  TARGET  PLANET  ECCENTRICITY  FACTOR  USED  IN 

NUMERICAL  DIFFERENCING 

OELICL  TARGET  PLANET  INCLINATION  FACTOR  USED  IN 

NUMERICAL  OIFFERENCING 

DELNOD  ' TARGET  PLANET  LONGITUDE  OF  THE  ASCENDING  NODE 

FACTOR  USED  IN  NUMERICAL  OIFFERENCING 

OELN  TARGET  PLANET  ARGUMENT  OF  PERIAPSIS  FACTOR 

USEO  IN  NUMERICAL  OIFFERENCING 

OELHA  TARGET  PLANET  MEAN  ANOMALY  FACTOR  USED  IN 

NUMERICAL  OIFFERENCING 

OELMUS  SUN  GRAVITATIONAL  CONSTANT  FACTOR  USED  IN 

NUMERICAL  DIFFERENCING 

OELHUP  TARGET  PLANET  GRAVITATIONAL  CONSTANT 

FACTOR  USEO  IN  NUMERICAL  OIFFERENCING 
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/ OPNUM  / MODE  I NOMNAL 


ZERO 

the 

NUMBER 

ZERO 

(0) 

TO 

NINE 

SIGNIFICANT 

FIGURES 

ONE 

THE 

NUMBER 

ONE 

(1) 

TO 

NINE 

SIGNIFICANT 

FIGURES 

TWO 

THE 

NUMBER 

TWO 

(2) 

TO 

NINE 

SIGNIFICANT 

FIGURES 

THREE 

THE 

NUMBER 

THREE 

(3) 

TO 

NINE 

SIGNIFICANT 

FIGURES 

FOUR 

THE 

NUMBER 

FOUR 

(A) 

TO 

NINE 

SIGNIFICANT 

FIGURES 

FIVE 

THE 

NUMBER 

FIVE 

(5) 

TO 

NINE 

SIGNIFICANT 

FIGURES 

EIGHT 

THE 

NUMBER 

EIGHT 

-> 

TO 

NINE 

SIGNIFICANT 

FIGURES 

TEN 

THE 

NUMBER 

TEN 

(10) 

TO 

NINE 

SIGNIFICANT 

FIGURES 

NINETY 

THE 

NUMBER 

NINETY  (90)  TO  NINE  SIGNIFICANT 

FIGURES 


HALF 


THE  NUMBER  ONE-HALF  (1/2)  TO  MINE  SIGNIFICANT 
FIGURES 


*?■  ■ 


l 


«■  ■ 


/OPNUM  / HOOEt  ERRAN,  SIHUL 


ZERO 

THE 

NUMBER 

ZERO 

(0) 

TO  NINE  SIGNIFICANT  FIGURES 

ONE 

THE 

NUMBER 

ONE 

(1) 

TO  NINE  SIGNIFICANT  FIGURES 

TWO 

THE 

NUMBER 

TMO 

(2) 

TO  NINE  SIGNIFICANT  FIGURES 

HALF 

THE  NUMBER 
FIGURES 

ONE-HALF 

(1/2) 

TO  NINE  SIGNIFICANT 

THREE 

THE 

NUMBER 

THREE 

C3> 

TO  NINE  SIGNIFICANT  FIGURES 

EH1 

THE 

NUMBER 

i.E-1 

TO 

NINE 

SIGNIFICANT 

FIGURES 

EN2 

THE 

NUMBER 

l.E-2 

TO 

NINE 

SIGNIFICANT 

FIGURES 

EH3 

THE 

NUMBER 

i.E-3 

TO 

NINE 

SIGNIFICANT 

FIGURES 

EM* 

THE 

NUMBER 

l.E-4 

TO 

NINE 

SIGNIFICANT 

FIGURES 

EH5 

THE 

NUMBER 

i.E-5 

TO 

NINE 

SIGNIFICANT 

FIGURES 

EM6 

THE 

NUMBER 

l.E-6 

TO 

NINE 

significant 

FIGURES 

EH7 

THE 

NUMBER 

l.E-7 

TO 

NINE 

SIGNIFICANT 

FIGURES 

EH8 

THE 

NUMBER 

l.E-8 

TO 

NINE 

SIGNIFICANT 

FIGURES 

EH9 

THE 

NUMBER 

l.E-9 

TO 

NINE 

SIGNIFICANT 

FIGURES 

EH50 

THE 

NUMBER 

i.E-50 

TO 

NINE 

SIGNIFICANT 

FIGURES 

TMOPI 

THE 

MATHEMATICAL 

CONSTANT 

2.*PI 

EN13 

THE 

NUMBER 

t.E-13 

TO 

NINE 

SIGNIFICANT 

FIGURES 

•32' 
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✓EVENT  / MODE  1 ERRAN,  SIMUL 

TEV(5Q) 

TIMES  OF  EVENTS 

TPT2 (20) 

PREDICTION  TIMES 

SIGRES 

VARIANCE  OF  RESOLUTION  ERROR 

SIGPRO 

VARIANCE  OF  PROPORTIONALITY  ERROR 

SIGALP 

VARIANCE  OF  ERROR  IN  POINTING  ANGLE  1 

SIGBET 

VARIANCE  OF  ERROR  IN  POINTING  ANGLE  2 

HPT 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
EXISTING  PROGRAM 

IN 

P7 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
EXISTING  PROGRAM 

IN 

TAUT 

0R8T  * INSERTION  VARIABLES.  NON-FUNCTIONAL 
EXISTING  PROGRAM 

IN 

AINC7 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
existing  PROGRAM 

IN 

ANOOET 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
existing  program 

IN 

PERPT 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
EXISTING  PROGRAM 

IN 

ECCT 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
EXISTING  PROGRAM 

IN 

OV8<3) 

ORBIT  INSERTION  VARIABLE.  NON-FUNCTIONAL 
EXISTING  PROGRAM 

IN 

NEV 

NUMBER  OF  EVENTS 

IEVNTCSO) 

CODES  OF  EVENTS 

IHYP1 

HYPERELLIPSOID  COOE  USED  TO  DETERMINE  IF 

K*lv  K*3»  OR  BOTH 


IEIG  CODE  USEO  TO  DECIDE  IF  BOTH  POSITION  AND 

VELOCITY  EIGENVECTORS  ARE  REQUESTED 

IC0T3 (20)  COOES  WHICH  DETERMINE  WHICH  GUIDANCE  POLICIES 

ARE  BEING  USED 

NPE  NUMBER  OF  PREDICTION  EVENTS  HAVING  OCCURRED 

NGE  NUMBER  OF  GUIDANCE  EVENTS  HAVING  OCCURRED 

IPOL  CODE  WHICH  DETERMINES  IF  FIXED-TIME-OF- 

ARRIVAL  GUIDANCE  EVENT  HAS  OCCUREO 

IIPOL  COOE  WHICH  DETERMINES  IF  EITHER  TWO-VARIABLE 

OR  THREE-VARIABLE  B-PLANE  GUIDANCE  POLICY 
HAS  OCCURRED 

ICDQ3 (20)  ARRAY  OF  CODES  WHICH  DETERMINE  WHICH 

EXECUTION  POLICIES  ARE  TO  BE  USED  IN  GUIDANCE 
EVENTS 

NEV1  TOTAL  NUMBER  OF  EIGENVECTOR  EVENTS 

NEV2  TOTAL  NUMBER  OF  r'*c'DICTTON  EVENT* 

NEV3  TOTAL  NUMBER  Or  UO^ANCE  EVENTS 

NEVA  TOTAL  NUMBER  OF  -CONCOW-  EVENTS 

NQE  QUAS I-LINEAR  FILTERING  EVENTS  HAVING  OCCURRED 

NEV5  TOTAL  NUMBER  OF  QUASI-LINEAR  FILTERING  EVENTS 

NEV6  TOTAL  NUMBER  OF  ADAPTIVE  FILTERING  EVENTS.  NON- 

FUNCTIONAL IN  EXISTING  PROGRAM 

NAE  ADAPTIVE  FILTERING  EVENTS  HAVING  OCCURRED.  NON- 

FUNCTIONAL IN  EXISTING  PROGRAM 

NAFS(ZQ)  ARRAY  OF  AOAPTIVE  FILTERING  EVENT  CODES.  NON- 

FUNCTIONAL IN  EXISTING  PROGRAM 

NEV7  ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL  IN 

EXISTING  PROGRAM 
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I OPT  7 

ORBIT  INSERTION  VARIABLE. 
EXISTING  PROGRAM 

MON-FUNCTIONAL  IN 

NEVB 

ORBIT  INSERTION  VARIABLE. 
EXISTING  PROGRAM 

NON-FUNCTIONAL  IN 

NEV9 

ORBIT  INSERTION  VARIABLES. 
EXISTING  PROGRAM 

NOM—FUNC  lONAL  IN 

NEV10 

G£9IT  INSERTION  VARIABLES. 
EXISTING  PROGRAM 

RON-FUNCTIONAL  IN 

MEV11 

ORBIT  INSERTION  VARIABLES. 
EXISTING  PROGRAM 

NON* FUNCTIONAL  IN 

/EXE  / NODE  ERRAN,  SXHUL 


; 1 1 
■ i 

1 XX IN (G> 

STATE  VECTOR  TRANSFERRED 

TO  EXCUT  OR  EXCUTS 

i i 

j DIPX 

JULIAN  DATE  TRANSFERRED 

TO  EXCUT  OR  EXCUTS 

’ 0ELPX13) 

VELOCITY  CORRETION  TO  BE 
SERIES 

MODELED  AS  AN  IMPULSE 

QK(6»6) 

EFFECTIVE  EXECUTION  COVARIANCE  MATRIX 

i 

> 

ouknyqui 

ARRAY  OF  EXECUTION  ERROR 

VARIANCES 

IN PX 

IKPUSLE  SERIES  CODE 

V ] 


I 


r 


? 


V ] 

,5  I 


35 


/GUI  / NODE  l ERRAN,  SI  MU. 


P6I6*  61 

POSITION/VELOCITY  CONTROL  COVARIANCE 

CXXSGC6*2%) 

CONTROL  CORRELATION  BETWEEN  POSITION/VELOCITY 
STATE  ANO  SOLVE-FOR  PARAMETERS 

CXUGC6.8) 

CONTROL  CORRELATION  BETWEEN  POSITION/VELOCITY 
STATE  AND  DYNAMIC  CONSIDER  PARAMETERS 

CXVG(6«15) 

CONTROL  CORRELATION  BETWEEN  POSITION/VELOCITY 
STATE  ANO  MEASUREMENT  CONSIDER  PARAMETERS 

PSG(2*«2L> 

SOLVE-FOR  PARAMETER  CONTROL  COVARIANCE 

CXSUG(24t8> 

CONTROL  CORRELATION  BETWEEN  SOLVE-FOR 
PARAMETERS  ANO  OYNAMIC  CONSIDER  PARAMETERS 

CXSVG(2M$I 

CONTROL  CORRELATION  BETWEEN  SOLVE-FOR 
PARAMETERS  AND  MEASUREMENT  CONSIDER  PARAMETERS 

XG<6> 

POSITION/VELOCITY  STATE  AT  MOST  RECENT 
GUIDANCE  EVENT 

TG 

TRAJECTORY  TIME  AT  MOST  RECENT  GUIOANCE  EVENT 

EM(2 »6) 

VARIATION  MATRIX  RELATING  POSITION/VELOCITY 
DEVIATIONS  TO  B.T  AND  B.R  DEVIATIONS 

/INPTAR/  NODE  NOHNAL,  ERRAN,  SIMUL 

A MG  TARGET  INCLINATION  CONVERTED  FROM  INPUT  FORMAT  vO 

VALUE  BETWEEN  0 AND  180  DEGREES  AND  SATISFYING 
APPROACH  ASYMPTOTE  CONSTRAINT 
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/LUtlART / MODE  NOHNAL 


OTAR (31 

PCON (3) 
TTOLC31 
BOON <31 
RI(6) 
PMQC61 

RSIC61 

RNE(6> 

DECLIN 

OTAR (31 

TCA 

RCA 

SNA 

CAI 

RPE 

TSI 

EMU 


TARGET  VALUES  3F  SNA,  B.Ty  ANO  B.R  IN  LUNAR  TAR- 
GETING 

PERTURBATIONS  IN  CONTROLS  <ALPHA,OELTA»THETA) 

ALLOMABLE  TOLERANCES  IN  SmA,  B.T,  B.R 

MAXIMUM  STEP  SIZES  OF  CONTROLS 

GEOCENTRIC  STATE  OF  S/C  AT  LUNAR  SOI 

GEOCENTRIC  STATE  OF  CENTER  OF  MOON  AT  TSI  IN 
EQUATORIAL  COORDINATES 

SELENOCENTRIC  STATE  OF  S/C  AT  LUNAR  SOI 

GEOCENTRIC  STATE  OF  CENTER  OF  MOON  IN  ECLIPTIC 
COORDINATES  AT  TSI 

DECLINATION  OP  APPROACH  ASYMPTOTE  WITH  RESPECT 
TO  LUNAR  EQUATOR 

DESIRED  VALUES  OF  SMA,  RCA,  AND  INC 
J.O.  OF  TIME  AT  LuNAR  CLOSEST  APPROACH  (OESIRED) 
RADIUS  OF  CLOSEST  APPROACH  TO  HOON  (DESIRED) 
SEHI— MAJOR  AXIS  OF  LUNAR  HYPERBOLA  (DESIRED) 
DESIRED  CLOSEST  APPROACH  EQUATORIAL  INCLINATION 
RADIUS  OF  EARTH  PARKING  ORBIT 
PROJECTED  J.O.  AT  SOI  INTERSECTION 
GRAVITATIONAL  CONSTANT  OF  EARTH  (KH3/SEC2) 
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I 


TSPH 

EQLQ<3,3) 

ITAG 


RADIUS  OF  LUNAR  SOX  (KM) 

TRANSFORMATION  MATRIX  FROM  EARTH-EQUATOR! AL  TO 
LUNAR  EQUATORIAL  COORDINATES 

FLAG  SPECIFYING  STAGE  OF  TARGETING 

>1  IN  SNA  TARGETING 

■0  IN  SNA,  INC,  RCA  TARGETING 


/HEAS  t MODE  I ERRAN,  SXKUL 


TNNdQOOl 

MCOOECIOOO) 

NMN 

MCNTR 


TIMES  OF  MEASUREMENTS 

ARRAY  OF  MEASUREMENT  CODES 

TOTAL  NUMBER  OF  'EASURENENTS 

NUMBER  OF  MEASUR  ENTS  HAVING  OCCURRED 


/HISC  / MODE*  ERRAN,  SIMUL 


1 

! 

ACC 

ACCURACY  FIGURE  USED 

IN 

VIRTUAL  MASS  PROGRAM 

1 

P 

FA  CP 

POSITION  FACTOR  USED 

IN 

NUMERICAL  DIFFERENCING 

i 

B 

FACV 

VELOCITY  FACTOR  USED 

IN 

NUMERICAL  DIFFERENCING 

h' 

BIA( 12) 

MEASUREMENT  BIASES 

h 

i ' 

b 

XDKF 

DYNAMIC  NOISE  FLAG 

?j 

ICOOR 

STATE  VECTOR  COOE  WHICH 

DETERMINES  IN  WHICH 

' \ 

COORDINATE  SYSTEM  THE 

VECTOR  IS  READ  IN 

|! 

ITR 

MODE  FLAG 

* < 

IMNF 

MEASUREMENT  NOISE  FLAG 

( 7 

f.1 

f : 

ISP2 

SPHERE  OF  INFLUENCE  FLAG 

■ 


I 


I 


1 


r 

”0 

K 


EVNM(ll) 
HNNAHEC12  *3) 
CMPNH (30) 


/NAME  / HOOEl  ERRAN,  SIMUL 


EVENT  NAME 
MEASUREMENT  NAME 
COMPONENT  NAME 


/ OVER  / MODE!  SIMUL 


RF<6> 

RF1(6) 


FINAL  TARGETED  NOMINAL  STATE  VECTOR 
FINAL  HOST  RECENT  NOMINAL  STATE  VECTOR 


RI(6) 

TEVN 

RIKB) 

ICOOE 

NAFC 

NR 


/OVER1  / MODE!  SIMUL 

INITIAL  TARGETEO  NOMINAL  STATE  VECTOR 
TIME  OF  CURRENT  EVENT 

INITIAL  MOST  RECENT  NOMINAL  STATE  VECTOR 
EVENT  CODE 

NON-FUNCTIONAL  ADAPTIVE  FILTER  CODE 
NUMBER  OF  ROWS  IN  THE  OBSERVATION  MATRIX 
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/OVERL  / NODE  ERRAN,  SIHUL 

□ TIME 

TIHE  INTERVAL  8ETNEEN  ORBITAL  INSERTION  OECISION 
AMO  EXECUTION 

/OVERR  / HOOE  ERRAN 

RX  (61 

STATE  VECTOR  AT  EVENT  TIHE 

TEVH 

EVENT  TIHE 

/OVERX  / HOOE  ERRAN,  SIHUL 

IX 

NONLINEAR  GUIOANCE  CODE 

JX 

GUIDANCE  EVENT  COUNTER 

XIN<6) 

STATE  VECTOR  TRANSFERRED  TO  NONLIN 

/OVERZ  / HOOE  ERRAN*  SIHUL 

RF  (6) 

FINAL  TARGETEO  STATE  VECTOR 

RFK6) 

FINAL  HOST  RECENT  NOHINAL  STATE  VECTOR 

IGP 

HIDCOURSE  GUIDANCE  POLICY  COOE 

GA(3,6> 

GUIOANCE  HATRXX 
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A (2*3) 

XMUS<2) 

EXEC (3  *3) 

CR 

POI 

XLAM(2,2) 

XL AN I (2»2> 
DVRB<3> 

DVUPC3) 

PSTAR 

DVN(  3) 

OELV (3»10) 

IIGP 

IBIAS 

IOENS 


/PSIK  / NOOE  ERRAN,  SIHUL 


FTA  IMPACT  PLANE  TRANSFORMATION  MATRIX 
NOMINAL  IMPACT  PLANE  TARGET  STATE 
EXECUTION  ERROR  COVARIANCE  MATRIX 
CAPTURE  RADIUS  OF  TARGET  PLANET 
PROBABILITY  OF  IMPACT 

PROJECTION  OF  TARGET  CONOITION  COVARIANCE  MATRIX 
INTO  THE  IMPACT  PLANE 

INVERSE  OF  XLAM<2,2> 

VELOCITY  CORRECTION  REQUIRED  TO  REMOVE  AIMPOINT 
BIAS 

UPDATE  VELOCITY  CORRECTION 

NOMINAL  PROBABILITY  DENSITY  FUNCTION  EVALUATED  AT 
TARGET  PLANET  CENTER 

COMMANDEO  VELOCITY  CORRECTION  TRANSFERRED  TO 
BIAIM 

ARRAY  OF  EXTERNALLY-SUPPLIED  VELOCITY  CHANGES 

MIDCOURSE  GUIDCANCE  POLICY  CODE 

BIASED  AIMPOINT  GUIDANCE  EVENT  FLAG 
= 0 AIMPOINT  NOT  BIASED 
= 1 AIMPOINT  BIASED 

PROBABILITY  DENSITY  FUNCTION  CODE.  NON-FUNCTIONAL 


4 1 


1 


l 


MONTH (12)  NINES  OF  HONTHS 

PLANET(ll)  NAMES  OF  GRAVITATIONAL  BOOZES 


NODE!  ERRAN,  SXMUL 


PLANET (11)  NAMES  OF  PLANETS 


r 

{, 

r 


■"  '<  n 


m 


/PULS  / MODE  NOHNAL 


PULMAG 

PULMAS 

OUR 

OTI 

DVK3) 

OVF(3> 

PULT 

RK<2,3) 

VK(2,3) 

FS(2,5) 
GS  (2, 4) 
GGC3) 

NPUL 


THRUST  MAGNITUOE  OF  PULSING  ENGINE 

NOMINAL  HASS  OF  SPACECRAFT  DURING  PULSING  ARC 

DURATION  OF  SINGLE  PULSE 

TIME  INTERVAL  (OAYS)  BETWEEN  SUCCESSIVE  PULSES 

VELOCITY  INCREMENT  ADDED  ON  TYPICAL  PULSE 

VELOCITY  INCREMENT  AODEQ  ON  FINAL  PULSE 

TOTAL  TIME  INTERVAL  OF  PULSING  ARC 

POSITION  VECTORS  OF  LAUNCH  ANO  TARGET  PLANETS 
AT  IMPULSIVE  TIME  (MIDPOINT  OF  PULSING  ARC) 

VELOCITY  VECTORS  OF  LAUNCH  AND  TARGET  PLANETS 
AT  IMPULSIVE  TIME  (MIDPOINT  OF  PULSING  ARC) 

F-SERIES  COEFFICIENT, S OF  LAUNCH  ANO  TARGET  BODIES 

G-SERIES  COEFFICIENTS  OF  LAUNCH  AND  TARGET  BODIES 

GRAVITATIONAL  CONSTANTS  OF  SUN,  LAUNCH,  AND  TAR- 
GET BODIES 

NUMBER  OF  PULSES  IN  PULSING  ARC 


/SAVVAL/  MODE  ERRAN,  SIMUL 


XBOT 

ORIGINAL 

VALUE 

OF 

B.T 

IN 

NONLINEAR 

GUIDANCE 

XBDR 

ORIGINAL 

VALUE 

OF 

B.R 

IN 

NONLINEAR 

GUIDANCE 

XDSI 

ORIGINAL 

value 

OF 

TSI 

IN 

NONLINEAR 

GUIDANCE 

XRSIC3) 

ORIGINAL 

VALUE 

OF 

RSI 

IN 

NONLINEAR 

GUIDANCE 

XVSI ( 3) 

ORIGINAL 

VALUE 

OF 

VSI 

IN 

NONLINEAR 

GUIDANCE 

XRC<6> 

ORIGINAL 

VALUE 

OF 

RC 

IN 

NONLINEAR  1 

GUIDANCE 

xoc 

ORIGINAL 

VALUE 

OF 

DC 

IN 

NONLINEAR  ! 

GUIDANCE 

/SIMCNT/  MODE*  SIMUL 


DMUSB  BIAS  IH  GRAVITATIONAL  CONSTANT  OF  SUN 

DHUPB  BIAS  IN  GRAVITATIONAL  CONSTANT  OF  TARGET 

PLANET 

DAB  BIAS  IN  SEMI-MAJOR  AXIS  OF  TARGET  PLANET 

OEB  BIAS  IN  ECCENTRICITY  OF  TARGET  PLANET 

DIB  BIAS  IN  INCLINATION  OF  TARGET  PLANET 

ONOB  BIAS  IN  LONGITUDE  OF  ASCENOING  NOOE 

OMB  BIAS  IN  ARGUtCNT  OF  PERIAPSIS 

OMAB  BIAS  IN  MEAN  ANOMALY 

TTIM1  FIRST  TIME  USED  FOR  UNHODELLEO  ACCELERATION 

TTIM2  SECOND  TIME  USED  FOR  UNMODELLED  ACCELERATION 


I 


» 


UNMAC (3*3) 
$LB( 9) 
AVARM (12) 
ARES (20) 
APRO (20) 
AALP(20) 
ABET  (20) 
IAMNF 


UNMOOELLED  ACCELERATION 
BIASES  IN  STATION  LOCATION  CONSTANTS 
VARIANCE  OF  ACTUAL  MEASUREMENT  NOISE 
ACTUAL  RESOLUTION  ERROR 
ACTUAL  PROPORTIONALITY  ERROR 
ACTUAL  ERROR  IN  POINTING  ANGLE  1 
ACTUAL  ERROR  IN  POINTING  ANGLE  2 
ACTUAL  MEASUREMENT  NOISE  FLAG 


/SIM1  / MODE*  SIMUL 


i 

N * 


XI1(6) 

INITIAL  STATE  VECTOR  OF  HOST  RECENT  NOMINAL 
TRAJECTORY 

XF1<6) 

FINAL  STATE  VECTOR  OF  MOST  RECENT  NOMINAL  > 
TRAJECTORY 

ADEVX (6) 

actual  deviation  in  the  state  vector 

AOEVXS  (24) 

actual  oeviation  in  solve-for  parameters 

1 

EOEVX (6) 

estimated  deviation  in  the  state  vector 

i 

EDEVXS (2A) 

estimated  deviation  in  solve-for  parameters 

i 

W (6) 

ACTUAL  DYNAMIC  NOISE 

a 

i 

ZI(S) 

INITIAL  ACTUAL  STATE  VECTOR  • 

ZF  (6) 

FINAL  ACTUAL  STATE  VECTOR  AFTER  AOOING  EFFECT  OF 
UNMOOELED  ACCELERATION 

ANOXS (4) 

ACTUAL  WHITE  NOISE 

c 

ft 

l 

RESU) 

RESIDUAL 

r 

i. 

EY  (4) 

ESTIMATED  MEASUREMENT 

b 

AY  (4) 

ACTUAL  MEASUREMENT 

t ! 

AR(4,4) 

ACTUAL  MEASUREMENT  NOISE 

j 

l • 

l ! 

h 

r i 

ADEVXB(b) 

ACTUAL  OEVIATION  IN  STATE  VECTOR  AT  BEGINNING 
OF  TRAJECTORY 

H 

rj 

AOEVSB(2<»> 

ACTUAL  OEVIATION  IN  SOLVE-FOR  PARAMETERS  AT 
BEGINNING  OF  TRAJECTORY 

£ ' 
»i 

AYMEY (4) 

ACTUAL  MEASUREMENT  MINUS  ESTIMATED  MEASUREMENT 

, > 

f 

!* 

EOEVXM(S) 

ESTIMATED  DEVIATION  IN  THE  STATE  VECTOR 
(FOR  ADAPTIVE  FILTERING) 

g 

ED£VSM(2b) 

ESTIMATEO  DEVIATION  IN  SOLVE-FOR  PARAMETERS 
IFOR  ADAPTIVE  FILTERING) 

I:! 

* - 

i _j 

b 

M 
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/SIM2  / MODE!  SIMUL 


NBl(ll) 

ACC1 


NBODl 


ARRAY  OF  PLANET  CODES  IN  ACTUAL  TRAJECTORY 
ACCURACY  USEO  IN  ACTUAL  TRAJECTORY 
NUMBER  OF  BODIES  IN  ACTUAL  TRAJECTORY 


/STM  / MODE!  ERRAN,  SIMUL 


P(6,&) 

CXXS (b>24) 


POSITION/VELOCITY  COVARIANCE 

CORRELATION  BETWEEN  POSITION/VELOCITY  STATE 
AND  SOLVE-FOR  PARAMETERS 


CXU<6»8) 


CORRELATION  BETWEEN  POSITION/VELOCITY  STATE 
AND  OYNAHIC  CONSIDER  PARAMETERS 


CXV<6,15) 


CORRELATION  BETWEEN  POSITION/VELOCITY  STATE 
AMO  MEASUREMENT  CONSIDER  PARAMETERS 


PS  (24,24) 


SOLVE-FOR  PARAMETER  COVARIANCE 


CXSU(Z*t6) 


CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
AND  OYNAMIC  CONSIDER  PARAMETERS 


CXSV  < 2 **>15) 


CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
ANO  MEASUREMENT  CONSIDER  PARAMETERS 


UQ (6  « 6) 


HYNAMIC  CONSIDER  PARAMETER  COVARIANCE  MATRIX 
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VO  (15 ( 19)  MEASUREMENT  CONSIOER  PARAMETER  COVARIANCE 

MATRIX 

N^TE  IF  THE  ENTIRE  COVARIANCE  MATRIX  HERE  ASSEMBLED  cROM  THE 
GIVEN  PARTITIONS  THE  RESULTANT  MATRIL  HOUID  BE  P(53,53) 
HITH  THE  SYMMETRIC  STRUCTURE- 


P(St6) 


' 4. 


K 

<■}  ■ . 


P (53 1 53) * 


CXXS(6,24),  C XU ( 6 f 8 ) CXV(6,15) 

PS (24,24)  CXSU  (24 , 8)  CXSV(24,15) 

UO ( 8 ,8)  CU V ( 8,155 

VO ( 1>, 15) 


PHK6(6) 

POSITION/VELOCITY  STATE  TRANSITION  MATRIX 

M r: ' f i 

t ' ' 

TXXS(6*24) 

• 

STATE  TRANSITION  MATRIX  PARTITION  ASSOCIATED 
SOLVE-FOR  PARAMETERS 

TXU(6y 9) 

STATE  TRANSITION  MATRIX  PARTITION  ASSOCIATED 
DYNAMIC  CONSIOER  PARAMETERS 

Q(6t6) 

DYNAMIC  NOISE  COVARIANCE  MATRIX 

1 

[ 

R(4,4) 

MEASUREMENT  NOISE  COVARIANCE  MATRIX 

AK(6f  4) 

KALMAN  GAIN  CONSTANT  FOR  POSITION/VELOCITY 
STATE 

[ S (24(41 

f 

KALMAN  GAIN  CONSTANT  FOR  SOLVE-FOR 
PARAMETERS 

, 

: 

; 

f 

H (4«6) 

OBSERVATION  MATRIX  RELATING  OBSERVABLES  TO 
POSITION/VELOCITY  STATE 

/ 

AH(4(24) 

OBSERVATION  MATRIX  RELATING  OBSERVABLES 
TO  SOLVE-FOR  PARAMETER  STATE 

<* 

G ( 4( 8) 

OBSERVATION  MATRIX  RELATING  OBSERVABLES 

TO  DYNAMIC  CONSIDER  PARAMETER  STATE 


«y  t 
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ALU, 15> 

HPMRU,*) 

PB<6,6> 

CXXSBC6,2t) 

C XUS (6,6) 

CXVB(6,1S> 

PS8(  24,24) 
CXSUBC24, 6) 

CXSV8(24,15> 

PP(6,6) 

CXXSP(6,Zt) 

CXUP(6,6> 

C^VP  (6,15) 

P$P(24,24> 


OBSERVATION  MATRIX  RELATING  OBSERVABLES 
TO  MEASUREMENT  CONSIDER  PARAMETER  STATE 

NON- FUNCTIONAL  IN  PRESENT  ERROR  ANALYSIS 
PROGRAM 

POSITION/VELOCITY  COVARIANCE  AT  INITIAL  TIME 

CORRELATION  BETWEEN  POSITION/VELOCIT Y STATE 
AND  SOLVE-FOR  PARAMETERS  AT  INITIAL  T ME 

CORRELATION  BETWEEN  POSITION/VELOCITY  STATE 
AND  OYNANIC  CONSIDER  PARAMETERS  AT  INITIAL 
TIME 

CORRELATION  BETWEEN  POSITION/VELOCIT i STATE 
AND  MEASUREMENT  CONSIDER  PARHETERS  AT 
INITIAL  TIME 

SOLVE-FOR  PARAMETER  COVARIANCE  AT  INITIAL 
TIME 

CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
AND  DYNAMIC  CONSIDER  PARAMETERS  AT 
INITIAL  TIME 

CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
AND  MEASUREMENT  CONSIDER  PARAMETERS  AT 
INITIAL  TIME 

POSITION/VELOCITY  COVARIANCE  MATRIX 
PRIOR  TO  PROCESSING  A MEASUREMENT 

CORRELATION  BETWEEN  POSIT ICN/VELOCITY 
STATE  AND  SOLVE-FOR  PARAMETERS  PRIOR  TO 
PROCESSING  A MEASUREMENT 

CORRELATION  BETWEEN  POSITTON/VELOCITT  STATE 
AND  DYNAMIC  CONSIDER  PARAM*.  TERS  PRIOR  TO 
PROCESSING  A MEASUREMENT 

CORRELATION  BETWEEN  POSI TION/VELOCIT f STATE 
AND  MEASUREMENT  CONSIDER  PARAMETERS  PRIOR 
TO  PROCESSING  A MEASUREMENT 

SOL Vc-FOR  PARMETER  COVARIANCE  MATRIX 
PRIOR  TO  PROCESSING  A MEASUREMENT 


1 


CXSUP(2M)  CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 

AND  DYNAMIC  CONSIDER  PARAMETERS  PRIOR  TO 
PROCESSING  A MEASUREMENT 

CXSVP(2<n19>  CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS  ANO 

MEASUREMENT  CONSIDER  PARAMETERS  PRIOR  TO 
PROCESSING  A MEASUREMENT 


/STVEC  / MODE!  ERRAN,  SIHUL 


XI(6) 

XFC6) 

XB(6) 

NOIM1 

N0IM2 

NDIM3 

IAUGIN(ZA) 

IAUG(2S) 

I AUGDC(B) 
IAUGMC(1$) 


INITIAL  VEHICLE  STATE  VECTOR  OF  ORIGINAL  NOMINAL 
FINAL  VEHICLE  STATE  VECTOR  OF  ORIGINAL  NOMINAL 
BEGINNING  ORIGINAL  NOMINAL  VEHICLE  STATE  VECTOR 
DIMENSION  OF  SOLVE-FOR  PARAMETER  STATE 
OIHENSION  OF  OYNAHXC  CONSIOER  STATE 
DIMENSION  OF  MEASUREMENT  CONSIOER  PARAMETER  STATE 
INPUT  AUGMENTATION  VECTOR  OF  ONE*S  ANO  ZEROES 
AUGMENTATION  VECTOR 

DYNAMIC  CONSIOER  AUGMENTATION  VECTOR 
MEASUREMENT  CONSIOER  AUGMENTATION  VECTOR 
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X 


AC(5, 10) 

PHKSf  3) 
TIKG(IQ) 

TAR(6,10) 

0AUX(3) 
AAUX  ( 3) 
OTAR  (3) 
ATAR(3) 
TOL(6,10) 

T0LRC6) 

CT0L(6) 

FACC3) 

THPR 

PERV(IO) 

DINTG(IQ) 
OT (10) 

DELV (3>10) 


/TAREAL/  MOOEl  NOMNAL,  EftRAN,  SIKUL 


ACCURACY  LEVELS  (UP  TO  5)  USED  IN  EACH  GUXOANCE 
EVENT 

TARGETING  MATRIX 

TIKES  OF  EACH  GUIDANCE  EVENT  REFERENCED  TO  EPOCH* 
-INITIAL  TINE,  SOI  TIME,  OR  CA  TINE 

DESIRED  VALUES  OF  TARGET  PARAMETERS  (UP  TO  6 
AVAILABLE)  FOR  EACH  GUIOANCE  EVENT 

DESIRED  AUXILIARY  PARAMETER  VALUES  OF  ITERATE 

ACTUAL  AUXILIARY  VALUES  OF  ITERATE 

DESIRED  TARGET  VALUES  OF  ITERATE 

ACTUAL  TARGET  VALUES  OF  ITERATE 

ALLOWABLE  TOLERANCES  OF  TARGET  PARAMETERS  FOR 
EACH  GUIOANCE  EVENT 

NOT  USEO  IN  CURRENT  TARGET  VERSION 

TOLERANCES  FOR  CURRENT  EVENT 

SCALING  FACTORS  USEO  IN  BAO  STEP  CHECK 

OAYS  BETWEEN  PRINTOUTS  OF  NOMINAL  TRAJECTORY 

PERTURBATION  SIZE  FOR  VELOCITY  COMPONENTS  IN 
CONSTRUCTING  SENSITIVITY  MATRICES  IN  TARGETING 
EVENTS 

NOT  USEO  IN  CURRENT  TARGET  VERSION 

JULIAN  DATES  OF  TARGET  TIKES 

EXTERNALLY  SUPPLIED  VELOCITY  CORRECTION  OR 
VELOCITY  INCREMENT  COMPUTED  BY  INSERTION  DECISION 


1 


I 


l 


u 

.1 


] 

I 


I 

I 

4 


a 

a 


TRTM 

RXN46) 

TIN 

01 

0G (10) 
DELTAT 

THU 

RRF(S) 

DELTAV43) 

OVHAX(IO) 

ACKT 

EQECP<3,3> 

TIHS 

SPHFAC(IO) 


TRAJECTORY  TIME  (DAYS)  REF.  TO  INJECTION 
CURRENT  STATE  VECTOR  AT  X-TH  EVENT 
JULIAN  DATE  AT  INJECTION 
JULIAN  DATE  ASSOCIATED  HITH  RIN  ARRAY 
JULIAN  OATES  OF  EVENT  TINES 

NUHBER  OF  DAYS  INTEGRATION  IS  TO  CONTINUE  IF 
NO  OTHER  STOPPING  CONDITION  OCCURS 

GRAVITATIONAL  CONSTANT  OF  TARGET  PLANET 

SPACECRAFT  POSITION  AT  END  OF  INTEGRATION 

CORRECTIONS  TO  BE  ADDED  TO  VELOCITY  COMPONENTS 
FOR  NEXT  ITERATION 

MAXIMUM  ALLOWABLE  CHANGE  IN  ANY  VELOCITY 
COMPONENT  FOR  EACH  EVENT 

TRAJECTORY  INTEGRATION  ACCURACY 

TRANSFORMATION  FROM  ECLIPTIC  TO  EQUATORIAL 
SYSTEM  FOR  TARGET  PLANE 

INTERNAL  CLOCK  TINE  AT  START  OF  COMPUTER  RUN 

REDUCTION  FACTORS  FOR  TARGET  PLANET  SPHERE 
OF  INFLUENCE  FOR  EACH  EVENT 


t* 


J 

i 


H 


-V3 

t j 


5 

j 


1 
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i 


/TARINT/  MODE  l NOMNAL,  ERRAN,  SIMUL 


\ 

t 


ii 

II 

h 

*« 


NOGYO  TOTAL  NUMBER  OF  GUIDANCE  EVENTS 

KTIHC10)  EPOCH  TG  WHICH  GUIOANCE  EVENT  TIMES  ARE  REFER- 

ENCED 

=0  EVENT  NOT  PROCESSED 
=1  INITIAL  TINE 
* 2 SOI  TINE 
= 3 CA  TIKE 
=4  CALENDAR  DATE 


KTYP(IO)  TYPE  OF  GUIDANCE  EVENT  FOR  EACH  EVENT 

=-l  TERMINATION  £'.  InY 
=1  TARGETING  EVENT 
= 2 RETARGETING  EVE*"  T 
=3  OR9IT  INSERTION  EVENT 


KHXQ(IO)  COMPUTE/EXECUTE  MODES  FG»  EACH  GUIDANCE  EVENT 

=1  CCN°U7Z  VELOCITY  CORRECTION  ONLY 
=2  EXECUTE  VELOCITY  CORRECTION  ONLY 
=3  COMPUTE  AMD  IMMEDIATELY  EXECUTE  CORRECTION 
=4  COMPUTE  BUT  EXECUTE  CORRECTION  LATER 


MOL(IO)  EXECUTION  MODELS  FOR  EACH  GUIDANCE  EVENT 

=1  IMPULSIVE 
=2  PULSING  ARC 

NPARC10)  NUMBER  OF  TARGET  PARAMETERS  IN  EACH  TARGETING 

EVENT 

KT AR(6»10)  COOES  OF  TARGET  PARAMETERS  (UP  TO  6)  FOR  EACH 

TARGETING  EVENT  OR  ORBIT  INSERTION  OPTION  FOR 
EACH  INSERTION  EVENT 


KEYT AR(3>  KEY  DEFINING  DESIRED  TARGET  PARAMETERS  FOR 

CURRENT  EVENT 

MAT<10)  TARGETING  MATRIX  COMPUTATION  CODE  FOR  EACH  TAR- 

GETING E VENT 

=1  COMPUTE  TARGETING  MATRIX  ONLY  AT  FIRST  LEVEL 
=2  COMPUTE  TARGETING  MATRIX  AT  EACH  STEP 
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IBAOS(IQ) 

Mon(to) 

HAXB(IQ) 

LEVELS 

LEV 

NITS 

KAXBAO 

I6AST 

HATX 

ISTART 

ITHASE 

NOPHAS 

ITARH 

IBAO 


BAO  STEP  FLAGS  FOR  EACH  TARGETING  EVENT 
■1  NEVER  USE  BAD  STEP  CHECK 
=2  USE  BAO  STEP  CHECK  AT  FINAL  LEVEL  ONLY 
a3  USE  BAO  STEP  CHECK  AT  ALL  LEVELS 

THE  NUMBER  OF  TOTAL  ITERATIONS  ALLOWED  AT  THE 
FIRST  ANO  LAST  LEVELS  OF  TARGETING  EVENTS  FOR 
EACH  GUIDANCE  EVENT 

THE  NUMBER  OF  BAD  STEPS  ALLOWED  DURING  ANY  TAR- 
GETING EVENT 

NUMBER  OF  ACCURACY  LEVELS  FOR  CURRENT  EVENT 

CURRENT  LEVEL  IN  CURRENT  TARGETING  EVENT 

ALLOWABLE  NUMBER  OF  ITERATIONS  FOR  CURRENT  EVENT 

MAXIMUM  NUMBER  OF  BAD  ITERATIONS  FOR  CURRENT 
EVENT 

BAO  STEP  CHECK  INDICATOR  FOR  CURRENT  EVENT 

MATRIX  COMPUTATION  CODE  FOR  CURRENT  TARGETING 
EVENT  < SEE  OEFN  OF  MAT) 

STAGE  OF  INITIAL  TARGETING  ' 

=0  NO  TARGETING  STARTED 

=1  FIRST  PHASE  STARTED  AND  HAVE  TARGETING  HATRIX 
=2  SECOND  PHASE  STARTED  AND  HAVE  HATRIX 

PHASE  COUNTER  FOR  CURRENT  TARGETING  EVENT 

NUMBER  OF  TARGETING  PHASES  FOR  CURRENT  EVENT 

FLAG  TO  CONTROL  CONSTRUCTION  OF  TARGETING  MATRIX 

*0  DO  NOT  COMPUTE  TARGETING  MATRIX 

*1  COMPUTE  TARGETING  MATRIX  ON  CURRENT  ITERATION 

BAO  STEP  FLAG  FOR  CURRENT  ACCURACY  LEVEL 
*1  00  NOT  CHECK  FOR  BAO  STEP 

=2  CHECK  FOR  BAD  STEP 
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ISTOP 

NOPAR 

KNIT 

IPRE 

NCPR 

IFINK10J 

KGYD(IC) 

KSICA 

KUR 

KAXTARC3) 

LVLS(IO) 

NOSOI 


STOPPING  CONDITION  INDICATOR  IN  SUBROUTINE 
TARGET 

si  STOP  ON  TIME 

«2  STOP  AT  SPHERE  OF  INFLUENCE 

=3  STOP  AT  CLOSEST  APPROACH 

NUMBER  OF  TARGET  PARAMETERS  FOR  CURRENT  EVENT 

TERMINATION  FLAG 
=0  CONTINUE  RUN 
=1  TERMINATE  RUN 

CASE  FLAG 
=0  FIRST  CASE 
=1  STACKED  CASE 

NUMBER  OF  INTEGRATION  INCREMENTS  BETWEEN  PRINT- 
OUTS OF  NOMINAL  TRAJECTORY 

NOT  USED  IN  THIS  TRAJECTORY  VERSION 

INOICES  OF  EVENTS  TO  3E  PROCESSED 

FLAG  I OTCATING  STAGE  OF  NOMINAL  TRAJECTORY 
*1  SOI  .;c:  YET  INTERSECTED 

=2  SOI  INTERSECTED  BUT  NO  CLOSEST  APPROACH 
=3  CLOSEST  APPROACH  ALREADY  ENCOUNTERED 

INDEX  OF  CURRENT  EVENT 

KEY  DEFINING  AUXILIARY  PARAMETERS  FOR  CURRENT 
EVENT 

NUMBER  OF  ACCURACY  LEVELS  TO  BE  USED  ON  EACH  TAR- 
GETING EVENT 

OUTER  TARGETING  FLAG 
=0  NORMAL  TARGETING 
=1  OUTER  TARGETING 


/TARVAR/  MODE  ERRAN,  SIMUL 


XT  AR(  10) 
XTOL (6  * 10) 
XAC(5* 10) 
XPERV(IO) 

XOVMAX  (10 ) 
XFAC(IO) 
XDEL V (3*10) 
TGT3 (10) 

LKTAR(6>10) 

LKTP(IO) 

LKLP(IO) 

LNPARUO) 

LLVLS(IO) 


OESIREO  TARGET  VALUES 

TOLERANCES  ON  TARGET  PARAMETERS 

ACCURACY  LEVELS  EMPLOYED  IN  TARGETING 

VELOCITY  PERTURBATION  USED  TO  COMPUTE  TARGETING 
MATRIX 

MAXIMUM  ALLOWABLE  VELOCITY  CORRECTION 

SPHERE  OF  INFLUENCE  FACTORS 

NONLINEAR  VELOCITY  CORRECTION 

DESIRED  TARGET  TIMES  REFERENCED  TO  INITIAL 
TRAJECTORY  TIME 

ARRAY  DEFINING  TARGET  PARAMETERS 

ARRAY  OF  TARGET  PLANETS 

ARRAY  OF  LAUNCH  PLANETS 

NUMBER  OF  TARGET  PARAMETERS  DESIRED 

NUMBER  OF  INTEGRATION  ACCURACY  LEVLES  USED 
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/TIM  / MODE*  ERRAN,  SIMUL 


t‘  : 


OATEJ 

TRTM1 

DELTM 

FNTM 

UNIVT 

TRTMB 


T 1 
T 2 
T4 
T5 
T 6 
T7 


JULIAN  DATE  OF  INITIAL  TRAJECTORY  TIME 
(REFERENCED  TO  1950) 

INITIAL  TRAJECTORY  TIME 

TIME  INCREMENT 

FINAL  TRAJECTORY  TIME 

UNIVERSAL  TIME 

TRAJECTORY  TIME  AT  BEGINNING  OF  TRAJECTORY 


/TMH2  / MODE*  SIHUL 

EIGENVECTOR  EVENT  TIMES 
PREDICTION  EVENT  STARTING  TIMES 
CONIC  COMPUTATION  EVENT  TIMES 
QUASI-LINEAR  EVENT  TIMES 
NOT  USED 
NOT  USED 
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V 


I 


/TRAJCO/  MODE!  ER RAN,  SIMUL 


i 


' ii 

* \ 


mm 


OTMAX 

ACCNO 

OTSUN 

OTPlAN 

NTMC 

ISTMC 

ISTM1 

NQACC 


MAXIMUM  TIME  INCREMENT  FOR  WHICH  ISTMC  IS 
VALIO 

ACCURACY  USED  IN  NUMERICAL  DIFFERENCING  IF 
NOACC  INDICATES 

STATE  TRANSITION  INTEGRATION  INTERVAL  WHEN 
THE  SUN  IS  CENTRAL  BODY  AND  ISTM1=1 

STATE  TRANSITION  INTEGRATION  INTERVAL  WHEN 
TARGET  PLANET  IS  CENTRAL  BODY  AND  ISTM1=1 

NOMINAL  TRAJECTORY  COOE 

STATE  TRANSITION  MATRIX  CODE 

ALTERNATE  STATE  TRANSITION  MATRIX  CODE 

NUMERICAL  DIFFERENCING  ACCURACY  CODE 


/TRJ  / MOOEl  ERRAN,  SIHUL 


STATE  AT  CLOSEST  APPROACH  ON  ORIGINAL  NOMINAL 

STATE  AT  CLOSEST  APPROACH  ON  MOST  RECENT 
NOMINAL 

STATE  AT  CLOSEST  APPROACH  ON  ACTUAL  TRAJECTORY 

POSITION  AT  SPHERE  OF  INFLUENCE  ON  ORIGINAL 
NOMINAL 

POSITION  AT  SPHERE  OF  INFLUENCE  ON  MOST  RECENT 
NOMINAL 

POSITION  AT  SPHERE  OF  INFLUENCE  ON  ACTUAL 
TRAJECTORY 


RCA1(6) 

i 

’ RCA2 (6) 

5 

V 

RCA3 (6) 
RSOI1 (3) 

l' 

i 

I RSOI2 (3) 

i 

RS0I3 (3) 


VS0IK3) 

VS0I2 (3) 

VS0I3 (3) 

TCA1 

TCA2 

TCA3 

TSOIi 

TSOI2 

TS0I3 

BSI1 

BSI2 

BSI3 

BDTSIi 

BDTSI2 

BDTSI3 

BDRSI1 

BDRSI2 

BDRSI3 

15011 

15012 


VELOCITY  AT  SPHERE  OF  INFLUENCE  ON  ORIGINAL 
NOMINAL 

VELOCITY  AT  SPHERE  OF  INFLUENCE  ON  MOST  RECENT 
NOMINAL 

VELOCITY  AT  SPHERE  OF  INFLUENCE  ON  ACTUAL 
TRAJECTORY 

TIME  AT  CLOSEST  APPROACH  OF  ORIGINAL  NOMINAL 

TIME  AT  CLOSEST  APPROACH  OF  MOST  RECENT 
NOMINAL 

TIME  AT  CLOSEST  APPROACH  OF  ACTUAL  TRAJECTORY 

TIME  AT  SPHERE  OF  INFLUENCE  OF  ORIGINAL 
NOMINAL 

TIME  AT  SPHERE  OF  INFLUENCE  OF  MOST  RECENT 
NOMINAL 

TIME  AT  SPHERE  OF  INFLUENCE  OF  ACTUAL 
TRAJECTORY 

B ON  ORIGINAL  NOMINAL 
B ON  MOST  RECENT  NOMINAL 
B ON  ACTUAL  TRAJECTORY 
B OOT  T ON  ORIGINAL  NOMINAL 
8 OOT  T ON  MOST  RECENT  NOMINAL 
B OOT  T ON  ACTUAL  TRAJECTORY 
B OOT  R ON  ORIGINAL  NOMINAL 
B OOT  R ON  MOST  RECENT  NOMINAL 
B OOT  R ON  ACTUAL  TRAJECTORY 

SPHERE  OF  INFLUENCE  CODE  FOR  ORIGINAL  NOMINAL 

SPHERE  OF  INFLUENCE  CODE  FOR  MOST  RECENT 
NOMINAL 


1 


IS0X3  SPHERE  OF  INFLUENCE  CODE  FOR  ACTUAL  TRAJECTORY 

V 

ICA1  CLOSEST  APPROACH  CODE  FOR  ORIGINAL  NOMINAL 

ICA2  CLOSEST  APPROACH  CODE  FOR  MOST  RECENT  NOMINAL 

ICA3  CLOSEST  APPROACH  COOE  FOR  ACTUAL  TRAJECTORY 


/TMTRIX/  MODE*  NOMNAL,  ERRAN,  SIMIIL 


CHX(3,3>  SENSITIVITY  MATRIX  ( TRANSFERRED  FOR  OUTPUT) 

I < 

i 

- -« 


> i s 

rife  ! 


y 


- x. 


ALNGTH 

TH 

DELTP 
RG  (6) 
DC 

RSK3) 
VSI<  3) 
DSI 

RVS( 6) 
VMU 
8 

BOT 

BOR 

OELTH 

TIHINT 

RE  (6) 

RTP( 6) 

CAINC 

RCA 

TACA 


/V M / MODE » NOMNAL,  ERRAN,  £IM'JL 

LENGTH  UNITS  PER  A.U. 

TINE  UNITS  PER  DAY 
PRINT  INCREMENTS  (IN  DAYS) 
iTATE  AT  CLOSEST  APPROACH 

JULIAN  OATE, EPOCH  1900, AT  CLOSEST  APPROACH 

POSITION  AT  SPHERE  OF  INFLUENCE 

VELOCITY  AT  SPHERE  OF  INFLUENCE 

JULIAN  DATE,  EPOCH  1900,  ‘T  SPHERE  Or 
INFLUENCE 

POSITION  OF  VEHICLE  RELATIVE  TO  VIRTUAL  HASS 
GRAVITATIONAL  CONSTANT  OF  VIRTUAL  MASS 
B AT  SPHERE  OF  INFLUENCE 
B DOT  T 
8 DOT  R 

INCREMENT  IN  TRUE  ANOMALY  USED 
TOTAL  TIME  USED 

POSITION  AND  VELOCITY  OF  EARTH 

POSITION  AND  VELOCITY  OF  TARGET  PLANET 

INCLINATION  AT  CLOSEST  APPROACH 

MAGNITUDE  OF  CLOSEST  APPROACH  POSITION  VECTOR 

TRAJECTORY  SEMIMAJOR  AXIS  WITH  RESPECT  TO  TARGET 
BOOY  AT  CLOSEST  APPROACH  TO  TARGET  BODY 


SSSC 3) 
NLP 
N800 
NB  (11) 
NTP 
IN  PR 
IPROB 
ISPH 

INCHT 

IEPHEM 

ICL 

IPRINT 

ICL2 


DIRECTION  COSINE  VECTOR  OF  SPACECRAFT  SPIN  AXIS 
CODE  OF  LAUNCH  PLANET 

NUMBER  OF  800IES  USED  IN  VIRTUAL  HASS  PROGRAM 

COOES  OF  PLANETS 

CODE  OF  TARGET  PLANET 

PRINT  INCREMENTS  (IN  INCREMENTS) 

PR08LEM  NUMBER 

SPHERE  OF  INFLUENCE  ^ODE 

3 0 SPHERE  OF  INFLUENCE  NOT  INTERSECTED 

=1  SPHERE  OF  INFLUENCE  ALREADY  ENCOUNTERED 

TOTAL  INCREMENTS  USED 

EPHEMERIS  CODE 

CLOSEST  APPROACH  CODE 

= 0 C' OSEST  APPROACH  NOT  ENCOUNTERED 

=1  CLOSEST  APPRUACH  ALREADY  ENCOUNTERED 

PRINT  CODE 

=0  OUTPUT  INITIAL  AND  FINAL  DATA 
=1  00  NOT  OUTPUT  INITIAL  AND  FINAL  DATA 

CLOSEST  APPROACH  TERMINATION  COOE 
*0  00  NOT  STOP  AT  CLOSEST  APPROACH 

»1  STOP  AT  CLOSEST  APPROACH 


/XXXL  / MOOEI  ERRAN,  SIHUL 


XSLCZA)  SOLVE-FOR  PARAHETER  LABELS 

XU<8>  DYNAMIC  CONSIOER  PARAMETER  LABELS 

XV(15)  MEASUREMENT  CONSIDER  PARAMETER  LABELS 

X' AB<6)  VEHICLE  POSITION/  VELOCITY  VECTOR  COMPONENT  NAMES 

XWH<20  AUGMENTATION  PARAMETER  LA8ELS 

K PRINT  CORRELATION  MATRIX  PRINT  CODE  , 


/ZERDAT/  MODE!  NOMNAL 


Z0AT(6> 

ZERO  ITERATE  VECTOR 

RP 

PARKING  ORBIT  RADIUS 

FI 

INJECTION  TRUE  ANOMALY 

PSI1 

ANCLE  OF  FIRST  BURN 

PSI2 

ANGLE  OF  SECOND  BURN 

TIM1 

TIME  INTERVAL  OF  FIRST  BURN 

TIM2 

TIME  INTERVAL  OF  SECOND  BURN 

THELS 

LONGITUDE  OF  LAUNCH  SITE 

PHILS 

LATITUDE  OF  LAUNCH  SITE 

TI 

NOT  USED 

TF 

n 'T  USED 

THEOOT 

DOTATION  RATE  OF  LAUNCH  PLANET 

RPRAT 

PARKING  ORBIT  INVERSE  RATE 

: 1 


i 


{ i 

(1 


-n  a !— 


.1  _*  » 

' r - 
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5.2  COKMON  VARIABLES  IN  ALPHABETICAL  ORDER 


IN  THIS  SECTION  ALL  VARIABLES  APPEARING  IN  COHHON  Ar1  LISTED 
ANO  DEFINED  IN  ALPHABETICAL  ORDER.  THE  SECOND  FIELD  SERVES 
TO  IDENTIFY  THE  BLOCK  IN  WHICH  THE  VARIABLE  APPEARS. 


A (2y  3) 

PBLK 

FTA  IMPACT  PLANE  TRANSFORMATION  MATRIX 

AALP (20) 

SIMCNT 

ACTUAL  ERROR  IN  POINTING  ANGLE  1 

AAUXC3) 

TAREAL 

ACTUAL  AUXILIARY  VALUES  OF  ITERATE 

ABET  (20) 

SIHCNT 

ACTUAL  ERROR  IN  POINTING  ANGLE  2 

AC  (5  « 10) 

TAREAL 

ACCURACY  LEVELS  CUP  TO  5)  USED  IN  EACH 
GUIDANCE  EVENT 

ACC 

HI  SC 

ACCURACY  FIGURE  USED  IN  VIRTUAL  MASS  PRO- 
GRAM 

ACC1 

SIH2 

ACCURACY  USED  IN  ACTUAL  TRAJECTORY 

ACCND 

TRAJCO 

ACCURACY  USED  IN  NUMERICAL  DIFFERENCING  IF 
NOACC  INDICATES 

ACKT 

TAREAL 

TRAJECTORY  INTEGRATION  ACCURACY 

A0A<3,6) 

BAIN 

VARIATION  MATRIX 

ADEVSB(2L) 

SIH1 

ACTUAL  DEVIATION  IN  SOLVE-FOR  PARAMETERS 
AT  TRAJECTORY  BEGINNING 

ADEVXC6) 

SI  HI 

ACTUAL  DEVIATION  IN  THE  STATE  VECTOR 

AOEVXB (6) 

SI  HI 

ACTUAL  DEVIATION  IN  STATE  VECTOR  AT  BEGIN- 
NING OF  TRAJECTORY 

AOEVXS  (2D 

SI  HI 

ACTUAL  DEVIATION  IN  SOLVE-FOR  PARAMETERS 

AINC7 

EVENT 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
IN  EXISTING  PROGRAM 

AK(6><»> 

STH 

KALMAN  GAIN  CONSTANT  FOR  POSITION/VELOCITY 
STATE 
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AL4W v15) 

STM 

OBSERVATION  MATRIX  RELATING  OBSERVABLES 
TO  MEASUREMENT  CONSIDER  PARAMETER  STATE 

ALNGTH 

VM 

LENGTH  UNITS  PER  A.U. 

AM  (4, 24) 

STM 

OBSERVATION  MATRIX  RELATING  OBSERVABLES 
TO  SOLVE-FOR  PARAHETER  STATE 

ANOOE7 

EVENT 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
IN  EXISTING  PROGRAM 

AHG 

IHPTAR 

TARGET  INCLINATION  CONVERTED  FROM  INPUT 
FORHAT  TO  VALUE  BETWEEN  0 AND  180  DEGREES 
AND  SATISFYING  APPROACH  ASYMPTOTE 
CONSTRAINT 

AMOZS (4> 

SIM1 

actual  mhite  noise 

A PRO (20) 

SI MCNT 

actual  proportionality  error 

AR(4,4) 

SIHi 

ACTUAL  MEASUREMENT  NOISE 

ARES C 201 

SI MCNT 

ACTUAL  RESOLUTION  E*vOR 

ATAR<3> 

TAREAL 

ACTUAL  TARGET  VALUES  OF  ITERATE 

ATRANS(61 

BA  IH 

CLOSEST  APPROACH  STATE 

AVARM41ZI 

SIMCNT 

VARIANCE  OF  ACTUAL  MEASUREMENT  NOISE 

AY  (4) 

SIM1 

ACTUAL  MEASUR  'NT 

AYHEY (<*J 

SI  Ml 

ACTUAL  MEASUREMENT  MINUS  ESTIMATED 
MEASUREMENT 

B 

VM 

B AT  SPHERE  OF  INFLUENCE 

BC0N(3> 

L.UNART 

MAXIMUM  STEP  SIZES  OF  CONTROLS 

BOR 

VM 

B DOT  R 

BOT 

VM 

B DOT  T 

BIA(IZ) 

HI  SC 

MEASUREMENT  BIASES 
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BSZl 

TRJ 

B ON  ORIGINAL  NOMINAL 

8SI2 

TRJ 

B ON  MOST  RECENT  NOMINAL 

SSX3 

TRJ 

B ON  ACTUAL  TRAJECTORY 

BOTSI1 

TRJ 

B DOT  T ON  ORIGINAL  NOMINAL 

BDTSI2 

TRJ 

B DOT  T ON  MOST  RECENT  NOMINAL 

B0TSI3 

TRJ 

B DOT  T ON  ACTUAL  TRAJECTORY 

80RSI1 

TRJ 

B DOT  R ON  ORIGINAL  NOMINAL 

B0RSI2 

TRJ 

B DOT  R ON  MOST  RECENT  NOMINAL 

BORSI3 

TRJ 

B OOT  R ON  ACTUAL  TRAJECTORY 

CAI 

LUNART 

DESIRED  CLOSEST  APPROACH  EQUATORIAL 
INCLINATION 

CAINC 

VH 

INCLINATION  AT  CLOSEST  APPROACH 

CHI ( 3*3) 

TMTRX 

SENSITIVITY  MATRIX (TRANSFERRED  FOR  OUTPUT) 

CMPNH (30) 

NAME 

COMPONENT  NAME 

cm  cao  > 

BLK 

CONSTANTS  USEO  TO  CALCULATE  THE  ORBITAL 
ELEMENTS  OF  THE  FIRST  FIVE  PLANETS 
(SEE  LARGE  ARRAY  DEFNS  IN  SECTION  5.3) 

CR 

PBLK 

CAPTURE  RADIUS  OF  TARGET  PLANET 

CTOL (6) 

TAREAL 

TOLERANCES  FOR  CURRENT  EVENT 

CXSU ( 24*8) 

STM 

CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
AND  DYNAMIC  CONSIOER  PARAMETERS 

CXSUB<24va> 

STM 

CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
AND  DYNAMIC  CONSIDER  PARAMETERS  AT 
INITIAL  TIME 

CXSUG (24*8) 

GUI 

CONTROL  CORRELATION  BETWEEN  SOLVE-FOR 
PARAMETERS  ANO  DYNAMIC  CONSIOER  PARAMETERS 

CXSJP  <24*  d) 


GUI 


CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
ANO  DYNAMIC  CONSIOER  P ARAHET^S  PRIOR  TO 
PROCESSING  A MEASUREMENT 


CXSV(24,15) 

STH 

CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
AND  MEASUREMENT  CONSIDER  PARAMETERS 

CXSVB(24, 15) 

STH 

CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
AND  MEASUREMENT  CONSIDER  PARAMETERS  AT 
INITIAL  TIME 

CXSVG(24,15) 

GUI 

CONTROL  CORRELATION  BETWEEN  SOLVE-FOR 
PARAMETERS  AND  MEASUREMENT  CONSIDER  PARA- 
METERS 

CXSVP (24, 15) 

ST  K 

CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
AND  MEASUREMENT  CONSIDER  PARAMETERS  PRIOR 
TO  PROCESSING  A MEASUREMENT 

CXU(6,6) 

STM 

CORRELATION  BETWEEN  POST T I ON/ VEL OC IT Y 
STATE  AND  OTNAMIC  CONSIDER  PARAMETERS 

CXUB«6,8) 

STM 

CORRELATION  BETWEEN  POSITION/ V ELOCITY 
STATE  AND  DYNAMIC  CONSIDER  PARAMETERS  AT 
INITIAL  TIME 

CXUG  (6*6) 

GUI 

CONTROL  CORRELATION  BETWEEN  POSITION/ 
VELOCITY  STATE  AND  DYNAMIC  CONSIDER 
PARAMETERS 

GXUP (6,6) 

STM 

CORRELATION  BETWEEN  POSITION/ VELOCITY 
ST«TE  AND  DYNAMIC  CGNSIOER  PARAMETERS 
PRIOR  TO  PROCESSING  A MEASUREMENT 

CXV(6,15) 

STH 

CORRELATION  BETWEEN  POSIT  ION/ VELOCITY 
STATE  AND  MEASUREMENT  CONSIDER  PARAMETERS 

CXVB (6,15) 

STH 

CORRELATION  BETWEEN  POSIT  ION/ VELOCITY 
STATE  AND  MEASUREMENT  CONSIQER  PARMETERS 

AT  INITIAL  TIME 

CXVG(f ,15) 

GUI 

CONTROL  CORRELATION  BETWEEN  POSITION/ 
VELOCITY  STATE  AND  MEASUREMENT  CONSIDER 
PARAMETERS 

CXVPC6.15) 

STM 

CORRELATION  BETWEEN  POSITION/VELOCITY 
STATE  AND  MEASUREMENT  CONSIDER  PARAMETERS 
PRIOR  TO  PROCESSING  A MEASUREMENT 

i 


0XXS(6,2U 

STH 

CORRELATION  BETWEEN  POSITION/VELOCITY 
S7ATE  ANO  SOLVE-FOR  PARAMETERS 

CXXSB<6,2<0 

STH 

CORRELATION  BETWEEN  PCSITION/VELOCITY 
STATE  AND  SOLVE-FOR  PARAMETERS  AT  INITIAL 
TIME 

CXXSG (6,24) 

GUI 

CONTROL  CORRELATION  BETWEEN  POSITION/ 
VELOCITY  STATE  AND  SOLVE-FOR  PARAMETERS 

CXXSP(6,Z4) 

STH 

CORRELATION  BETWEEN  POSITION/VELOCITY 
STATE  ANO  SOLVE-FOR  PARAMETERS  PRIOR  TO 
PROCESSING  A MEASUREMENT 

01 

tareal 

JULIAN  DATE  ASSOCIATED  WITH  RIN  ARRAY 

DAB 

SIHCNT 

BIAS  IN  SEMI-MAJOR  AXIS  OF  TARGET  PLANET 

OATEJ 

TIKE 

JULIAN  DATE  OF  INITIAL  TRAJECTORY  TIME 
(REFERENCED  TO  1950) 

DAUXC3) 

TAREAL 

OESIREO  AUXILIARY  PARAHETER  VALUES  OF 
ITERATE 

DC 

VH 

JULIAN  DATE, EPOCH  1900, AT  CLOSEST  APPROACH 

DEB 

SIHCNT 

BIAS  IN  ECCENTRICITY  OF  TARGET  PLANET 

OECLZN 

LUNART 

OECLINAT ION  OF  APPROACH  ASYMPTOTE  WITH 
RESPECT  TO  LUNAR  EQUATOR 

OELAXS 

C0HST3 

TARGET  PLANET  SEMI-MAJOR  AXIS  FACTOR  USED 
IN  NUMERICAL  DIFFERENCING 

OELECC 

CONST  3 

TARGET  PLANET  ECCENTPICITY  FACTOR  USED  IN 
•NUMERICAL  DIFFERENCING 

DELICL 

C0NST3 

TARGET  PLANET  INC! INATI„N  FACTOR  USED  IN 
NUMERICAL  DIFFERENCING 

DELMA 

C0NST3 

•TARGET  PLANET  MEAN  ANOMALY  FACTOR  USED  IN 
NUMERICAL  DIFFERENCING 

i 

OELHUP 

C0NST3 

TARGET  PLANET  GRAVITATIONAL  CONSTANT 
FACTOR  USED  IN  NUMERICAL  DIFFERENCING 

DELHUS 

C0NST3 

SUN  GRAVITATIONAL  CONSTANT  FACTOR  USED  IN 
NUMERICAL  DIFFERENCING 

f 
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OELNOD 

C0NST3 

TARGET  PLANET  LONGITUDE  OF  THE  ASCENDING 
NOOE  FACTOR  USED  IN  NUMERICAL  DIFFERENCING 

OELPX  (3) 

EXE 

VELOCITY  CORRECTION  TO  BE  MOOELED  AS  AN 
IMPULSE  SERIES 

DELTAT 

TAREAL 

NUMBER  OF  OAYS  INTEGRATION  IS  TO  CONTINUE 
IF  NO  OTHER  STOPPING  CONDITION  OCCURS 

DELT AV(3) 

TAREAL 

CORRECTIONS  TO  BE  ADDED  TO  VELOCITY 
COMPONENTS  FOR  NEXT  ITERATION 

DELTH 

VM 

INCREMENT  IN  TRUE  ANOMALY  USED 

DELTM 

TIHE 

TIME  INCREMENT 

DELTP 

VM 

PRINT  INCREMENTS  (IN  DAYS) 

DELVK3»1Q) 

tareal 

EXTERNALLY  SUPPLIED  VELOCITY  CORRECTION 
OR  VELOCITY  INCREMENT  COMPUTED  BY 
INSERTION 

OELV(3.10) 

PBLK 

ARRAY  OF  EXTERNALLY-SUPPLIED  VELOCITY 
CHANGES 

DELH 

CONST  3 

TARGET  PLANET  ARGUMENT  OF  PERIAPSIS  FACTOR 
USEO  IN  NUMERICAL  DIFFERENCING 

DG(10) 

TAREAL 

JULIAN  DATES  OF  EVENT  TIMES 

DIB 

SIMCNT 

BIAS  IN  INCLINATION  OF  TARCET  PLANET 

DINTGCIO) 

TAREAL 

NOT  USEO  IN  CURRENT  TARGET  VERSION 

□ IPX 

EXE 

JULIAN  DATE  TRANSFERRED  TO  EXCUT  OR  EXCUTS 

DMAS 

SIMCNT 

BIAS  IN  MEAN  ANOMALY 

OHUPB 

SIMCNT 

BIAS  IN  GRAVITATIONAL  CONSTANT  OF  TARGET 
PLANET 

DMUSB 

SIMCNT 

‘BIAS  IN  GRAVITATIONAL  CONSTANT  OF  SUN 

DNCNC3) 

CONST 

CONSTANTS  FROM  WHICH  DYNAMIC  NOISE  IS 
COMPUTED 

DNOB 

SIMCNT 

BIAS  IN  LONGITUDE  OF  ASCENDING  NOOE 

OPA 

ZOUT 

DECLINATION  OF  VHP 

DSI 

VM 

JULIAN  DATE,  EPOCH  1900,  AT  SPHERE  OF 
INFLUENCE 

DT(IO) 

TAREAL 

JULIAN  OATES  OF  TARGET  TIHES 

OTAR(3) 

TAREAL 

DESIRED  TARGET  VALUES  OF  ITERATE 

OTAR (3) 

LUNART 

TARGET  VALUES  OF  SHA,B.T,  AND  9.R  IN 
LUNAR  TARGETING 

DTI 

PULS 

TIHE  INTERVAL  (DAYS)  BETWEEN  SUCCESSIVE 
PULSES 

DTIME 

OVERL 

TIHE  INTERVAL  BETWEEN  ORBITAL  INSERTION 
OE CIS I ON  AND  EXECUTION 

DTHAX 

TRAJCO 

MAXIMUM  TINE  INCREMENT  FOR  WHICH  ISTMC  IS 
V ALIO 

DTPLAN 

TRAJCO 

STATE  TRANSITION  INTEGRATION  INTERVAL  WHEN 
TARGET  PLANET  IS  CENTRAL  BODY  AND  ISTM1«1 

OTSUN 

TRAJCO 

STATE  TRANSITION  INTEGRATION  INTERVAL  WHEN 
THE  SUN  IS  CENTRAL  BOOT  AND  ISTM1=1 

DUMMYQ<<*> 

EXE 

ARRAY  OF  EXECUTION  ERROR  VARIANCES 

OUR 

PULS 

DURATION  OF  SINGLE  PULSE 

D V8( 3) 

EVENT 

ORBIT  INSERTION  VARIABLE.  NON- FUNCTIONAL 
IN  EXISTING  PROGRAM 

QVF<3> 

PULS 

VELOCITY  INCREMENT  ADDED  ON  FINAL  PULSE 

OVIC3) 

PULS 

VELOCITY  INCREMENT  ADDED  ON  TYPICAL  PULSE 

DVHAX(IQ) 

TAREAL 

MAXIMUM  ALLOWABLE  CHANGE  IN  ANY  VELOCITY 
COMPONENT  FOR  EACH  EVENT 

Q VN ( 3 ) 

PBLK 

COMMANDED  VELOCITY  CORRECTION  TRANSFERRED 
'TO  BIAIM 

DVR8  ( 3) 

PBLK 

VELOCITY  CORRECTION  REQUIRED  TO  REMOVE 
AIHPOINT  BIAS 
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DVUP (3) 

PBLK 

UPDATE  VELOCITY  CORRECTION 

OMB 

SIMCNT 

BIAS  IN  ARGUMENT  OF  PERIAPSIS 

ECC7 

EVENT 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
IN  EXISTING  PROGRAM 

E0EVSH(24> 

SI  Ml 

ESTIMATED  DEVIATION  IN  SOLVE-FOR 
PARAMETERS  (FOR  ADAPTIVE  FILTERING) 

EDEVX (6) 

SI  Ml 

ESTIMATED  DEVIATION  IN  THE  STATE  VECTOR 

E0£VXM<6) 

SIMi 

ESTIMATED  DEVIATION  IN  THE  STATE  VECT3R 
(FOR  ADAPTIVE  FILTERING) 

EOEVXS  (24) 

SI  HI 

ESTIMATED  DEVIATION  IN  SOLVE-FOR 
PARAMETERS 

EIGHT 

DPNUM 

THE  NUMBER  EIGHT  (£)  TO  NINE  SIGNIFICE'iT 
FIGURES.  TARGETING  MODE  ONLY 

ELHNT (60) 

8LK 

CONTAINS  THE  ORBITAL  ELEMENTS  OF  THE 
PLANETS 

; SEE  LARGE  ARRAY  DEFNS  IN  SECTION  5.3) 

EH(2,6) 

GUI 

VARIATION  MATRIX  RELATING  POSITION 
/VELOCITY  DEVIATIONS  TO  B.T  AND  B.R 
DEVIATIONS 

EMI 

DPNUM 

THE  NUMBER  l.E-1  TO  NINE  SIGNIFICANT 
FIGURES 

EM2 

DPNUM 

THE  NUMBER  l.E-2  TO  NINE  SIGNIFICANT 
FIGURES 

EM3 

DPNUM 

THE  NUMBER  l.E-3  TO  NINE  SIGNIFICANT 
FIGURES 

EM4 

DPNUM 

THE  NUMBER  l.E-4  TO  NINE  SIGNIFICANT 

• FIGURES 

EM5 

DPNUM 

THE  NUMBER  l.E-5  TO  NINE  SIGNIFICANT 
FIGURES 

EM6 

DPNUM 

THE  NUMBER  i.E-6  TO  NINE  SIGNIFICANT 

FIGURES 


EH7 

DPNUM 

THE  NUMBER  l.E-7  TO  NINE  SIGNIFICANT 
FIGURES 

£M8 

DPNUM 

THE  NUMBER  l.E-8  TO  NINE  SIGNIFICANT 
FIGURES 

EM9 

DPNUM 

THE  NUMBER  l.E-9  TO  NINE  SIGNIFICANT 
FIGURES 

EH13 

DPNUM 

THE  NUMBER  l.E-13  TO  NINE  SIGNIFICANT 
FIGURES 

EM50 

DPNUM 

THE  NUMBER  i.E-50  TC  NINE  SIGNIFICANT 
FIGURES 

EHN( 15) 

BE  K 

THE  CONSTANTS  USED  TC  CALCULATE  THE  ORBIT- 
AL ELEMENTS  OF  THE  MOON 

EMU 

LJNART 

GRAVITATIONAL  CONSTANT  OF  EARTH ( NMS/SEC2) 

EPS 

CONST 

OBLIQUITY  OF  EARTH 

EQECP (3*3) 

TAREAL 

TRANSFORMATION  FROM  ECLIPTIC  TO  EQUATORIAL 
SYSTEM  POR  TARGET  PLANE 

EQLQ(3,3) 

LUNART 

TRANSFORMATION  MATRIX  FROM  EARTi- 
EQUATORIAL  TO  LUNAR  EQUATORIAL  COOROINTES 

EVNH(ll) 

NAME 

EVENT  NAME 

EXEC(3*3> 

PBLK 

EXECUTION  ERROR  COVARIANCE  MATRIX 

EY  (4) 

SI  Ml 

ESTIHATEO  MEASUREMENT 

F(44*4) 

COM 

CONTAINS  THE  POSITIONS  AND  VELOCITIES  OF 
THE  PLANETS  AT  A SPECIFIED  TIME  PLUS  THE 
POSITIONS  AND  VELOCITIES  QP  THE  SPACE- 
CRAFT RELATIVE  TO  THE  PLANETS 

FAC( 3) 

TAREAL 

. SCALING  FACTORS  USED  IN  BAD  ^ TCP  CHECK 

FACP 

MISC 

POSITION  FACTOR  USED  IN  NUMERICAL  DIFFER- 
ENCING 

FACV 

HISC 

VELOCITY  FACTOR  USED  IN  NUMERICAL  DIFFER- 
ENCING 

FI 

ZERDAT 

INJECTION  TRUE  ANOMALY 

■i* 


FIVE 

OPNUH 

THE  NUMBER  FIVE  <5>  TO  NINE  SIGNIFICANT 
FIGURES.  TARGETING  MODE  ONLY 

FNTH 

TIME 

FINAL  TRAJECTORY  TIKE 

FOP 

C0NST2 

OFF-DIAGONAL  ANNIHILATION  VALUE  FOR 
POSITION  EIGENVALUES 

FOUR 

OPNUH 

THE  NUMBER  FOUR  (4)  TO  NINE  SIGNIFICANT 
FIGURES.  TARGETING  MODE  ONLY 

FOV 

CONST  2 

OFF-DIAGONAL  ANNIHILATION  VALUE  FOR 
VELOCITY  EIGENVALUES 

FS(2,5) 

POLS 

F-SERIES  COEFFICIENTS  OF  LAUNCH  ANO  TARGET 
BODIES 

G (4,8) 

STM 

OBSERVATION  MATRIX  RELATING  OBSERVABLES 
TO  DYNAMIC  CONSIDER  PARAMETER  STATE 

GA (3,6) 

OVERZ 

GUIDANCE  MATRIX 

• 

GG(3) 

PULS 

GRAVITIONAL  CONSTANTS  OF  SUN,  LAUNCH,  AND 
TARGET  BODIES 

GS (2  > 4) 

PULS 

G-SERIE S COEFFIEIENTS  OF  LAUNCH  AND  TARGET 
BODIES 

H<4,6> 

STM 

OBSERVATION  MATRIX  RELATING  OBSERVABLES  TO 
POSITION /VELOCITY  STATE 

HALF 

OPNUH 

THE  NUMBER  ONE-HALF  (1/2)  TO  NINE  SIGNIF- 
ICANT FIGURES 

HP7 

EVENT 

ORBIT  INSERTION  VARIABLES.  NON-FUNCT IONAL 
EXISTING  PROGRAM 

HPHR(«*,4> 

STM 

NON-FUNCTIONAL  IN  PRESENT  ERROR  ANALYSIS 
PROGRAM 

IAMNF 

SIMCNT 

■ ACTUAL  MEASUREMENT  NOISE  FLAG 

IAUGIiUZV) 

STVEC 

INPUT  AUGMENTATION  VECTOR  OF  ONE*S  AND 
ZERO-S 

I AUG (24) 

STVEC 

AUGMENTATION  VECTOR 

I AUGDC  (8) 

STVEC 

DYNAMIC  CONSIDER  AUGMENTATION  VECTOR 

t 


I AUGMC (15) 
Z BAD 

ISADS ( 10} 

IBAG 
IBARY 
IBAST 
I BIAS 


ICL2 

ICODE 

ICQOR 


STVEC  MEASUREMENT  CONSIDER  AUGMENTATION  VECTOR 

TARXNT  BAD  S TER  FLAG  FOR  CURRENT  ACCURACY  LEVEL 
=1,  DO  NOT  CHECK  FOR  BAD  STEP 
=2,  CHECK  FOR  BAD  STEP 

TARINT  BAD  STEP  FLAGS  FOR  EACH  TARGETING  EVENT 
=1  NEVER  USE  BAD  STEP  CriEOUE 
=2  USE  BAD  STEP  CHECK  AT  FINAL  LEVEL  ONLY 

=3  USE  BAD  STEP  CHECK  AT  ^LL  LEVELS 

BAIH  NOT  USED 

CN TRIG  REFERENCE  COORDINA"!  SYSTEM  CODE 

I 

TARINT  BAD  STEP  CHECK  INDICATOR  FOR  CURRENT  EVENT 

PBLK  BIASED  AIMPOINT  GUIDANCE  EVENT  FLAG 

- 0 AIMPOINT  NOT  BI*.SrD 
=1  AIMPOINT  BIASED 


t ' > L 

ICAl 

TRJ 

CLOSEST  APPROACH  CODE  FOR 

ORIGINAL  NOMINAL 

n 

• jj 

' S 

ICA2 

TRU 

CLOSEST  APPROACH  CODE  FOR 
NOMINAL 

MOST  RECENT 

ICA3 

TRU 

CLOSEST  APPROACH  CODE  FOR 
TRAUECTORY 

ACTUAL 

»! 

*vJ 

ICD33 (20) 

EVENT 

ARRAY  OF  CODES  WHICH  DETERMINE  WHICH 
EXECUTION  POLICIES  ARE  TO  BE  USED  IN 
GUIDANCE  EVENTS 

\\ 

ij 

t ■ ; 

ICOT  3 (20) 

EVENT 

CODES  WHICH  DETERMINE  WHICH  GUIDANCE 
POLICIES  ARE  BEING  USED 

1 1 

I CL 

VM 

CLOSEST  APPROACH  CODE 

OVER1 

MISC 


=0  CLOSEST  APPROACH  NOT  ENCOUNTERED 
= 1 CLOSEST  APPRO ACn  ENCOUNTERED 

CLOSEST  APPROACH  TERMINATION  CODE 
=0  DO  NOT  STOP  AT  CLOSEST  APPROACH 
=1  STOP  AT  CLOSEST  APPROACH 

MEASUREMENT  CODE 

CODE  TO  DETERMINE  WHICH  COORDINATE  SYSTEM 
THE  INITIAL  STATE  VECTOR  IS  INPUT 
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\ 


l 


\ 


ICOORD 

IOENS 

IDNF 

IEIG 

IEPHEM 
IEVNT (50) 
IFINT  < 10) 
IGP 

IGUID (5> 1 0) 
IHYPi 

II 
I IGP 
IIPOL 

INNF 

INC 

INCMNT 

INCMT 

INCPR 

INITIAL 

INPR 

INPX 


CNTRIC  NON- FUNCTIONAL  IN  ERROR  ANALYSIS  NODE 

PBLK  PROBABILITY  OENSITY  FUNCTION  CODE.  NON- 

f UNCT.ONAL 

MISC  DYNAMIC  NOTSE  FLAG 

EVENT  CODE  USED  TO  DECIDE  IF  BOTH  POSITION  AND 
VELOCITY  EIGENVECTORS  ARE  REQUESTED 

VM  EPtiEMERIS  C'OE 

EVENT  COOES  OF  EVENTS 

TARINT  NOT  USED  IN  THIS  TRAJZQTORY  VERSION 

OVERZ  MIDCOURSE  GlUQA.JCE  POLICY  CODE 

BA IM  ARRAY  OF  GUIDANCE  EVENT  CODES 

w VENT  HYPERELLIPSOID  CODE  USED  TO  DETERMINE  IF 

K-l,  K=3,  OR  BOTH 

BAIM  GUIDANCE  EVENT  COUNTER 

PBLK  MIDCOURSE  GUIDANCE  POLICY  CODE 

EVENT  CODE  WHICH  DETERMINES  IF  EITHER  TWO 
-VARIBlE  OR  THREE-VARIABLE  J-PLANE 
GUIDANCE  POLICY  HAS  OCuURRED 

MISC  MEASUREMENT  NOISE  FLAG 

COM  DETERMINE  WHETHER  THE  ABOVE  OPTION  IS  TO 

BE  USED 

COM  NUMBER  OF  INCREMENTS  USED 

VM  TOTAL  INCREMENTS  USED 

COM  • SPECIFIES  AFTER  HOW  MANY  TIME  INCREMENTS 
PRINT-OUT  IS  TO  OCCUR 

CNTRIC  NON-FUNCTIONAL  IN  ERl'OR  ANALYSIS  MODE 

VM  PRINT  INCREMENTS  (IN  INCREMENTS) 

EXE  IMP  " SERIES  CODE 


I 


l 


*1  < 

I 

I I 


«• ' 


I 


I0PT7 

EVENT 

ORBIT  INSERTION  VARIABLE.  NON-FUNCTIONAL 
IN  EXISTING  PROGRAMS 

IPG 

COM 

PAGE  NUMBER 

ZPHASC 

TARINT 

PSASE  COUNTER  FOR  CURRENT  TARGETING  EVENT 

ZPOL 

EVENT 

CODE  WHICH  DETERMINES  IF  FIXE D-TI ME-OF- 
ARRIVAL  GUIDANCE  EVENT  HAS  OCCJRED 

1PQ 

BAIN 

NOT  USED 

IPR 

CON 

A CODE  WHICH  DETERMINES  IF  PRINT-OUT  IS  TO 
ftCCUR  AFTER  A SPECIFIED  NUMBER  OF  DAYS 

IPRE 

' RINT 

CONTROLS  INITIALIZATION  OF  PROGRAM 
CONSTANTS  IN  SU3R0UTINE  -PRELIM-. 

IPRINT 

VN 

PRINT  CODE 

=0  OUTPUT  INITIAL  AND  FINAL  OATA 
=i  DO  NOT  OUTPUT  DATA 

IPROB 

VN 

PROBLEM  number 

IPRT  (<*) 

CON 

SPECIFIES  PRINT  OPTIONS  (NOT  APPLICABLE 
TO  STEAP  TRAJECTORY)  . 

IS0I1 

TRJ 

SPHERE  OF  INFLUENCE  CODE  FOR  ORIGINAL 
NOMINAL 

IS0I2 

TRJ 

SPHERE  OF  INFLUENCE  CODE  FOR  HOST  RECENT 
NOHINAL 

IS0I3 

TRJ 

SPHERE  OF  INFLUENCE  CODE  FOR  ACTUAL 
TRAJECTORY 

ISP2 

HISC 

SPHERE  OF  INFLUENCE  FLAG 

IS  PH 

VN 

SPHERE  OF  INFLUENCE  CODE 

=0  SPHERE  OF  INFLUENCE  NOT  INTERSECTED 
=1  SPHERE  OF  INFLUENCE  INTERSECTED 

ISTART 

TARINT 

STAGE  OF  INITIAL  TARGETING 
=0  NO  TARGETING  STARTED 
= 1 FIRST  gJJASE  STARTED  -HAVE  TARG 
MATRIX  W 

=2  SECOND  PHASE  STARTED  - HAVE  TARG 

MATRIX 
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s 


ISTMi 

TRAJCD 

ALTERNATE  STATE  TRANSITION  MATRIX  CODE 

XSTHC 

TRAJCD 

STATE  TRANSITION  MATRIX  COOE 

:*top 

TARINT 

STOPPING  CONDITION  INOICATOR  IN  SUBROUTINE 
TARGET 

*1,  STOP  ON  TIME 

=2,  STOP  AT  SPHERE-OF-INFLUENCE 

*3,  STOP  AT  CLOSEST  APPROACH 

I T AG 

LUNAR! 

FLAG  SPECIFYING  STAGE  OF  TARGETING 

=1  IN  SHA  TARGETING 

=2  IN  SNA,  INC,  RCA  TARGETING 

IT  ARM 

TARINT 

FLAG  TO  CONTROL  CONSTRUCTION  OF  TARGETING 
MATRICES 

=0,  00  NOT  CALCULATE  STATE  TRANSITION 
=1,  CALCULATE  STATE  TRANSITION  MATRIX 
AFTER  EACH  ITERATION 

ITR 

MI  SC 

MODE  FLAG 

ITRAT 

CON 

IN  INTERNAL  CODE  USED  TO  DETERMINE  HOW 
MANY  ITERATIONS  HAVE  BEEN  ACCOMPLISHED  IN 
THE  VIRTUAL  MASS  PROCEDURE 

IX 

OVERX 

NONLINEAR  GUIDANCE  CODE 

I ZERO 

ZEROAT 

ZERO  ITERATION  FLAG 
=0  INITIAL  STATE  READ  IN 

=1  planet  to  planet 

= 2 PLANET  TO  POINT 
=3  POINT  TO  PLANET 

=4  POINT  TO  POINT  , 

=10  LUNAR  TARGETING 

JX 

OVERX 

GUIDANCE  EVENT  COUNTER 

KAXTARC3) 

TARINT 

KEY  DEFINING  AUXILIARY  PARAMETERS  FOR 
CURRENT  EVENT 

XEYTAR<3> 

TARINT 

KEr  DEFINING  DESIRED  TARGET  PARAMETERS  FOR 
CURRENT  EVENT 

KGYO(IO) 

taunt 

FLAG  INDICATING  GUIDANCE  INFORMATION  IN 
CORRESPONDING  COLUMNS  OF  INPUT  ARRAYS 
*1,  INFORMATION 
=0,  NO  INFORMATION 

KL 

COM 

PROBLEH  NUMBER 

CNOHNAL 

ONLY) 

KHXa(lO) 

TARINT 

COMPUTE/EXECUTE 

MOOES  FOR 

EACH  EVENT 

»1  COMPUTE  VELOCITY  CORRECTION  ONLY 
= 2 EXECUTE  VELOCITY  CORRECTION  ONLY 
=3  COHPUTE  AND  IMMEDIATELY  EXECUTE  CORRECTIONS 
= 4 COMPUTE  BUT  EXECUTE  CORRECTION  LATER 


KOAST 

ZERDAT 

=-l,  SHORT  COAST.  =♦!,  LONG-COAST 

(COUNT 

COM 

A CODE  WHICH  SPECIFIES  WHETHER  PRINT-OUT 
IS  TO  OCCUR  AFTER  THIS  Y I ME  INCREMENT 

KPRINT 

XX  XL 

CORRELATION  MATRIX  PRINT  CODE 

KSICA 

TARINT 

STOPPING  CONOITIQN  INDICATOR  IN  SUBROUTINE 
TRJTRY  =1,  STOP  ON  TIHE 

= 2 » STOP  AT  SPHERE -OF- INFLUENCE 
=3,  STOP  AT  CLOSEST  AFPROAuH 

<TAR(6flO) 

TARINT 

CODES  OF  TARGET  PARAMETERS  CUP  TO  6)  FOR 
EACH  TARGETING  EVENT  OR  ORBIT  INSERTION 
OPTION  FOR  EACH  INSERTION  EVENT 

KTIH(IQ) 

TARINT 

EPOCH  TO  WHICH  GUIDANCE  EVENT  TIMES 

ARE  REFERENCED 

-0  EVENT  NOT  PROCESSED 

=1  INITIAL  TIME 

=2  SOI  TIHE 

= 3 CA  TIME 

=4  CALENDAR  OATE 

KTYPC10) 

TARINT 

TYPE  OF  GUIDANCE  EVENT  FOR  EACH  EVENT 
=-l  TERMINATION  EVENT 
=1  TARGETING  EVENT 
=2  RETARGETING  EVENT 
=3  ORBIT  INSERTION  EVENT 

KHXQC10) 

TARINT 

COMPUTE/ EXECUTE  MODES  FOR  EACH 

GUIDANCE  EVENT 

=1  COMPUTE  VELOCITY  CORRECTION  ONLY 
-2  EXECUTE  VELOCITY  CORRECTION  ONLY 
=3  COMPUTE  AND  IMMEDIATELY  EXECUTE 
CORRECTION 

=4  COMPUTE  BUT  EXECUTE  CORRECTION  LATER 
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KUR 

KNIT 

LEV 

LEVELS 

LIMCT 
LINPGE 
LKLPC10I 
LKTAR (6* 10) 
LKTPCIQ) 
LLVLS  (10) 
LNPAR(IQ) 
LTARG 

LVLS 

HAT (10) 


MATX 

HAXBC10) 

HAXBAO 

HCNTR 

HCOOE (1000) 


TARINT  FLAG  INDICATING  UHICH  EVENT  IS  THE  CURRENT 
EVENT 

TARINT  TERMINATION  INDICATOR  *0,  CONTINUE  RUN 

»i,  TERMINATE  RUN 

TARINT  CURRENT  LEVEL  IN  CURRENT  TARGETING  EVENT 

TARINT  NUMBER  OF  ACCURACY  LEVELS  FOR  CURRENT 
EVENT 

COM  LINE  COUNT  (NOHNAL  ONLY) 

COM  LINES  PER  PAGE  (NOKNAL  ONLY) 

TARVAR  ARRAY  OF  LAUNCH  PLANETS 

TARVAR  ARRAY  OEFINXNG  TARGET  PARAMETERS 

TARVAR  ARRAY  OF  TARGET  PLANETS 

TARVAR  NUHBER  OF  INTEGRATION  ACCURACY  LEVELS  USED 

TARVAR  NUMBER  OF  TARGET  PARAMETERS  DESIRED 

ZERDAT  = 0,  INTERPLANETARY  TARGETING.  =1,  LUNAR 
TARGETING 

TARINT  NUMBER  OF  ACCURACY  LEVELS  TO  BE  USED  ON 
EACH  TARGETING  EVENT 

TARINT  TARGETING  MATRIX  COMPUTATION  CODE  FOR 

EACH  TARGETING  EVENT 
=1  COMPUTE  TARGETING  MATRIX  ONLY  AT 
FIRST  LEVEL 

-2  COMPUTE  TARGETING  MATRIX  AT  EACH  STEP 

TARINT  MATRIX  COMPUTATION  CODE  FOR  CURRENT 
TARGETING  EVENT  (SEE  DEFN  OF  MAT) 

TARINT  -THE  NUMBER  OF  BAD  STEPS  ALLOWED  DURING 
ANY  TARGETING  EVENT 

TARINT  MAXIHUM  NUMBER  OF  BAU  ITERATIONS  FOR 
CURRENT  EVENT 

KEAS  NUMBER  OF  MEASUREMENTS  HAVING  OCCURRED 

HEAS  ARRAY  OF  MEASUREMENT  CODE'. 


MDL(IO) 

TARINT 

EXECUTION  MODELS  FOR  EACH  GUIDANCE  EVENT 
=1  IMPULSIVE 
=2  PULSING  ARC 

HNCN ( 12) 

CONST 

MEASUREMENT  NOISE  CONSTANTS 

HNNAME(12»3) 

NANE 

MEASUREMENT  NAME 

HONTH (12) 

PRT 

NAMES  OF  MONTHS 

NAE 

EVENT 

ADAPTIVE  FILTERING  EVENTS  HAVING  OCCURRED. 

NAF6C20) 

EVENT 

ARRAY  OF  ADAPTIVE  FILTERING  EVENT  CODES. 
NON-FUNCTIONAL  IN  EXISTING  PROGRAM 

NAFC 

OVER1 

ADAPTIVE  FILTER  FLAG 

NB  (11 ) 

VM 

CODES  OF  PLANETS 

NBK111 

SI  M2 

ARRAY  OF  PLANET  CODES  IN  ACTUAL  TRAJECTOR 

NBOD 

VM 

NUMBER  OF  BODIES  USED  IN  VIRTUAL  MASS 
PROGRAM 

NROD1 

SI  M2 

NUMBER  OF  BODIES  IN  ACTUAL  TRAJECTORY 

NBOOY 

COM 

EQUAL  TO  A*N30DYI-3 

NBODYI 

CON 

NUMBER  OF  BODIES  CONSIDERED  IN  VIRTUAL 
HASS  TRAJECTORY 

NCPR 

TARINT 

NUMBER  OF  INTEGRATION  INCREMENTS  BETWEEN 
PRINT-OUTS  OF  NOMINAL  TRAJECTORY 

NDACC 

TRAJCD 

NUMERICAL  DIFFERENCING  ACCURACY  CODE 

NOIH1 

STVEC 

DIMENSION  OF  SO_VE-FOR  PARAMETER  STATE 

NOIH2 

STVEC 

DIMENSION  OF  DYNAMIC  CONSIDER  STATE 

NQXM3 

STVEC 

• DIMENSION  OF  MEASUREMENT  CONSIDER 
PARAMETER  STATE 

NEV 

EVENT 

NUMBER  OF  EVENTC 

NEV1 

EVENT 

TOTAL  NUMBER  OF  EIGENVECTOR  EVENTS 

NEV2 


EVENT 


TOTAL  NUMBER  OF  PREDICTION  EVENTS 


NEV3 

EVENT 

TOTAL  NUMBER  OF  GUIDANCE  EVENTS 

NEV4 

EVENT 

TOTAL  NUMBER  OF  -COHCON-  EVENTS 

NEV5 

EVENT 

TOTAL  NUMBER  OF  QUASI-LINEAR  FILTERING 
EVENTS 

NEV6 

EVENT 

TOTAL  NUMBER  OF  AOAPTIVE  FILTERING  EVENTS. 
NON-FUNCTIONAL  IN  EXISTING  PROGRAM 

NEV7 

EVENT 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
IN  EXISTING  PROGRAM 

IN 

NEV8 

EVENT 

ORBIT  INSERTION  VARIABLE.  NON-FUNCTIONAL 
IN  EXISTING  PROGRAMS 

NEV9 

EVENT 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
IN  EXISTING  PROGRAM 

IN 

NEV10 

EVENT 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
IN  EXISTING  PROGRAM 

IN 

NEV11 

EVENT 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
IN  EXISTING  PROGRAM 

IN 

NGE 

EVENT 

NUMBER  OF  GUIDANCE  EVENTS  HAVING  OCCURRED 

NINETY 

DPNUH 

THE  NUMBER  NINETY  <901  TO  NxNE  SIGNIFICANT 
FIGURES.  TARGETING  MODE  ONLY 

NITS 

TARINT 

ALLOWABLE  NUMBER  OF  ITERATIONS  FOR  CURRENT 
EVENT 

NLP 

VM 

CODE  OF  LAUNCH  PLANET 

NHN 

HEAS 

TOTAL  NUMBER  OF  MEASUREMENTS 

NO  (11) 

BLK 

AN  ARRAY  OF  PLANET  CODES  BEING  USED  TO 
GENERATE  THE  VIRTUAL  HASS  TRAJECTORY 

NOGYO 

TARINT  ■ 

TOTAL  NUMBER  OF  GUIDANCE  EVENTS 

NOIT(IO) 

TARINT 

THE  NUMBER  OF  TOTAl  ITERATIONS  ALLOWED  AT 
THE  FIRST  AND  LAST  LEVELS  OF  TARGETING 
EVENTS  FOR  EACH  GUIDANCE  EVENT 

NOPAR 

TARINT 

NUMBER  OF  TARGET  PARAMETERS  FOR  CURRENT 
EVENT 

NOPHAS 

TARINT 

NUMBER  OF  TARGETING  PHASES  FOR  CURRENT 
EVENT 

NOSOI 

TARINT 

OUTER  TARGETING  FLAG 
=0  NORMAL  TARGETING 
=1  OUTER  TARGETING 

NPE 

EVENT 

NUMBER  OF  PREDICTION  EVENTS  HAVING 
OCCURRED 

NPUL 

PULS 

NUMBER  OF  PULSES  IN  PULSING  ARC 

NQE 

EVENT 

OUASI-LINEAR  FILTERING  EVENTS  HAVING 
OCCURRED 

NR 

OVER1 

NUMBER  OF  ROWS  IN  THE  OBSERVATION  MATRIX 

NST 

CONST 

NUMBER  OF  STATIONS  TG  BE  JSED  (MAXIMUM  3> 

NTMC 

TRAJCD 

NOMINAL  TRAJECTORY  CODE 

NTP 

VH 

CODE  OF  TARGET  PLANET 

OrtEGA 

CONST 

EARTH-S  ROTATION  RATE 

ONE 

DPNUH 

T .it  NUMBER  ONE  (1)  TO  NINE  SIGNIFICANT 

FIGURES  ; 

0TAR(3) 

LUNART 

DESI vEO  VALUES  OF  SMA,RCA,  AND  INC 

P (6»  6) 

STM 

POSITION/VELOCITY  COVARIANCE 

PB(6,6) 

STM 

POSITION /VELOCITY  COVARIANCE  AT  INITIAL 
TIME 

P7 

EVENT 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
EXISTING  PROGRAM 

IN 

PCON ( 3 ) 

LUNART 

PERTURBATIONS  IN  CONTROLS (ALPHA, DELTA, 
THETA) 

PERP7 

EVENT 

ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL 
EXISTING  PROGRAM 

IN 

PERV(IC) 

TAREAL 

PERTURBATIONS  SIZE  FOR  VELOCITY  COMPONENTS 
IN  CONSTRUCTING  SENSITIVITY  MATRICES  IN 
TARGETING  EVENTS 

PG (6»  6) 

GUI 

POSITION/VELOCITY  CONTROL  COVARIANCE 

PHIC  3 »3) 

TAREAL 

TARGETING  MATRIX.  REQ-0  ONLY  IK  ISTART=1,2 

PHI (6*6) 

STH 

POSITION/VELOCITY  STATE  TRANSITION  MATRIX 

PHIZ (3«3) 

BA  IH 

INVERSE  OF  VARIATION  MATRIX  PARTITION 

PHILS 

ZEROAT 

LATITUQE  OF  LAUNCH  SITE 

PI 

COM 

THE  VALUE  OF  THE  MATHEMATICAL  CONSTANT  PI 

PLANET  (11> 

PRT 

NAMES  OF  PLANETS 

PHASS ( 11) 

BLK 

GRAVITATIONAL  CONSTANTS  OF  PLANETS  IN 
A.O.**3/0AY**2 

POI 

PBLK 

PROBABILITY  OF  IMPACT 

PP(6.6) 

STM 

POSITION/VElOCITY  COVARIANCE  MATRIX 
PRIOR  TO  PROCESSING  A MEASUREMENT 

PROBI 

BAIK 

ALLOWABLE  PROBABILITY  OF  IMPACT 

PSTZ4,Z 4) 

STM 

SOLVE-FOR  PARAMETER  COVARIANCE 

PSBC24,24) 

STM 

SOLVE-FOR  PARAMETER  COVARIANCE  AT  INITIAL 
TIME 

PSG<24,24> 

GJI 

SOLVE-FOR  PARAMETER  CONTROL  COVARIANCE 

PSI1 

ZEROAT 

ANGLE  OF  FIRST  BURN 

PSI2 

ZEROAT 

ANGLE  OF  SECOND  BURN 

PSP(Z4,Z4> 

STM 

SOLVE-FOR  PARAMETER  COVARIANCE  MATRIX 
PRIOR  TO  PROCESSING  A MEASUREMENT 

PSTAR 

PBLK 

NOMINAL  PROBABILITY  DENSITY  FUNCTION 
EVALUATED  AT  TARGET  PLANET  CENTER 

PULHAG 

POLS 

THRUST  MAGNITUDE  OF  PULSING  ENGIEN 

PULHAS 

POLS 

' NOMINAL  MASS  OF  SPACECRAFT  DURINu  PULSING 
ARC 

PULT 

POLS 

TOTAL  TIME  INTERVAL  OF  PULSING  ARC 

a(6»6> 

STM 

DYNAMIC  NOISE  COVARIANCE  MATRIX 

QK(6,6) 

EXE 

EFFECTIVE  EXECUTION  ERROR  COVARIANCE 
MATRIX 

R(4,4) 

STM 

MEASUREMENT  NOISE  COVARIANCE  MATRIX 

RAP 

ZOUT 

RIGHT  ASCENSION  OF  VH= 

RAD 

COM 

THE  NUMBER  OF  DEGREES  PER  RADIAN 

RA0IUSC11) 

BL  K 

THE  RADIUS  OF  A GIVEN  PLANET  IN  A.U. 

RC  (6) 

VM 

STATE  AT  CLOSEST  APPROACH 

RCA 

VH 

MAGNITUDE  OF  CLOSEST  APPROACH  POSITION 
VECTOR 

RCA 

LUNART 

RADIUS  OF  CLOSEST  APPROACH  TO  MOON 
(DESIRED) 

RCA1 (61 

TRJ 

STATE  AT  CLOSEST  APPROACH  ON  ORIGINAL 
NOHINAL 

RCA2(6) 

TRJ 

STATE  AT  CLOSEST  APPROACH  ON  MOST  RECENT 
NOHINAL 

RCA3  ( 6) 

TRJ 

STATE  AT  CLOSEST  APPROACH  ON  ACTUAL 
TRAJECTORY 

RE<6) 

VM 

POSITION  AND  VELOCITY  OF  EARTH 

RES<  4) 

SI  Ml 

RESIDUAL 

RF  (6) 

OVER 

FINAL  TARGETED  NOMINAL  STATE  VECTOR 

RFC6) 

OVERZ 

FINAL  TARGETED  STATE  VECTOR 

RF1C6) 

OVER 

FINAL  MOST  RECENT  NOHINAL  STATE  VECTOR 

RFi(6> 

OVERZ 

• FINA-  MOST  RECENT  NOMINAL  STATE  VECTOR 

RI(b) 

OVER1 

INITIAL  TARGETED  NOMINAL  STATE  VECTOR 

RI  (6) 

OVERR 

STATE  VECTOR  AT  EVENT  TIME 

RI  (6) 

LUNART 

GEOCENTRIC  STATE  OF  S/C  AT  LUNAR  SOI 

Ril 

OVER1 

INITIAL  MOST  RECENT  NOMINAL  Si  ATE  VECTOR 
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RIN<  6) 

TAREAL 

CURRENT  STATE  VECTOR  AT  I-TH  EVENT 

RK(2 » 3) 

PULS 

POSITION  VECTORS  OF  LAUNCH  AND  TARGET 
PLANETS  AT  IMPULSIVE  TIME (MIDPOINT  OF 
PULSING  ARC> 

RHASS(ll) 

BLK 

THE  RELATIVE  GRA 7ITAVTCNAL  CONSTANT  OF  A 
STATED  PLANET  WITH  RESPECT  TO  THE  SUN 

RMEC6) 

LUNART 

GEOCENTRIC  STATE  Cp  CENTER  OF  MOON  IN 
ECLIPTIC  COORDINATES  AT  TSI 

RKQ(6> 

LUNART 

GEOCENTRIC  STATE  OF  CENTER  OF  MOON  AT 
TSI  IN  EQUATORIAL  COORDINATES 

RP 

ZEROAT 

PARKING  ORBIT  RADIUS 

RPE 

LUNART 

RAOIUS  OF  EARTH  PARKING  ORBIT 

RPRAT 

ZERDAT 

PARKING  ORBIT  INVERSE  RATE 

RHF ( 3 ) 

TAREAL 

SPACECRAFT  POSITION  AT  ENO  OF  INTEGRATION 
USEO  IN  BROKEN  PLANE  TARGETING 

RSK3) 

VM 

POSITION  AT  SPHERE  OF  INFLUENCE 

RSI(6) 

LUNART 

SELENOCENTRIC  STATE  OF  S/C  AT  LUNAR  SOI 

RS0I1 (3) 

TRJ 

POSITION  AT  SPHERE  OF  INFLUENCE  ON 
ORIGINAL  NOMINAL 

RSOI2  <3) 

TRJ 

POSITION  AT  SPHERE  OF  INFLUENCE  ON  MOST 
RECENT  NOMINAL 

RS0I3C3) 

TRJ 

POSITION  AT  SPHERE  OF  INFLUENCE  ON  ACTUAL 
TRAJECTORY 

RTP(6> 

VM 

POSITION  AND  VELOCITY  OF  TARGET  PLANET 

RVS<6) 

VH 

POSITION  OF  VEHICLE  RELATIVE  TO  VIRTUAL 
•MASS 

5 <24, 45 

STM 

KALMAN  GAIN  CONSTANT  FOR  SOLVE-FOR 
PARAMETERS 

S AL  < 3 ) 

CONST 

ALTITUDES  OF  STATIONS 

SIGALP 

EVENT 

VARIANCE  OF  ERROR  IN  POINTING  ANGLE  i 

* 


1 


4 


SIGBET 

EVENT 

SIGNAL 

ZEROAT 

sigpro 

EVENT 

! 

SIGRES 

EVENT 

1 

SLAT (3) 

CONST 

i 

SL8( 9) 

SIHCNT 

, - 

SL0N(3) 

CONST 

t 

SMA 

LUNART 

' | 

SHJR(18< 

BLK 

SPHERE (11) 

BLK 

if*  t 1 

«&*■?-  I 

SPHFAC(IO) 

TAREAL 

1 

• - j 

SSS( 3) 

VM 

I 

1 

ST(50) 

BLK 

1 

1 

■ 

- \ 

T 

BLK 

\ 

T1 (20) 

TMM2 

1 j 

i 

T2 (20 ) 

TMM2 

3 

1 3 

T3(10) 

B'.IM 

1 

jj 

T4(20) 

TMM2 

(( 

ll 

T5  (20) 

TMH2 

r.i 

H 


•¥\ 

;&■ 

n 


variance  of  error  in  pointing  ANGLE  2 

NOMINAL  LAUNCH  AZIMUTH 

variance  of  proportionality  error 
variance  of  resolution  error 

LATITUDES  OF  STATIONS 

BIASES  IN  STATION  LOCATION  CONSTANTS 

LONGITUDES  OF  STATIONS 

SIMI-MAJOR  AXIS  OF  LUNAR  HYPERBOLA 
(DESIRED) 

CONSTANTS  USED  TO  CALCULATE  THE  SEMI-MAJOR 
AXES  OF  THE  PLANETS 

THE  SPHERES  OF  INFLUENCE  OF  THE  PLANETS  IN 
A.U. 

REDUCTION  FACTORS  FOR  TARGET  PLANET  SPHERE 
OF  INFLUENCE  FOR  EACH  EVENT 

DIRECTION  COSINES  VECTOR  OF  SPACECRAFT 
SPIN  AXIS 

CONSTANTS  USED  TO  CALCULATE  THE  ORBITAL 
ELEMENTS  OF  THE  LAST  FOUR  PLANETS 
(SEE  LARGE  ARRAY  DEFNS  IN  SECTION  5.3) 

TRAJECTORY  TIME  IN  DAYS 

EIGENVECTOR  EVENT  TIMES 

PREDICTION  v.;ENT  STARTING  TIHES 

ARRAY  OF  GUIDANCE  EVENT  TIMES 

CONIC  COMPUTATION  EVENT  TIMES 

QUASI-'.  INEAR  EVENT  TIMES 


> 
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T6(20> 


TACA 


TAR(6, 10) 


T AU7 


TCA1 


TCA2 


TCA3 


TEV<50) 

TEVN 


TEVN 


TGT3(10> 


THEDOT 

THELS 


TMH2  NOT  USED 

TMM2  NOT  USED 

VM  TRAJECTORY  SEMIHAJOR  AXIS  WITH  RESPECT 

TO  TARGET  BODY  AT  CLOSEST  APPROACH  TO 
TARGET  BODY 

TAREAL  DESIRED  VALUES  OF  TARGET  PARAMETERS  (UP 
TO  6 AVAILABLE)  FOR  EACH  GUIDANCE  EVENT 

EVENT  ORBIT  INSERTION  VARIABLES.  NON-FUNCTIONAL  IN 
IN  EXISTING  PROGRAM 

LUNART  J.D.  OF  TIME  AT  LUNAR  CLOSEST  APPROACH 
(DESIRED) 

7RJ  TIME  AT  CLOSEST  APPROACH  OF  ORIGINAL 

NOMINAL 

TRJ  TIME  AT  CLOSEST  APPROACH  OF  MOST  RECENT 

NOMINAL 

TRJ  TIME  AT  CLOSEST  APPROACH  OF  ACTUAL 

TRAJECTORY 

DPNUM  THE  NUMBER  TEN  (10)  TO  NINE  SIGNIFICANT 
FIGURES.  TARGETING  MODE  ONLY 

EVENT  TIMES  OF  EVENTS 

OVERi  TIME  OF  CURRENT  EVENT 

OVERR  EVENT  TIME 

ZERDAT  NOT  USED 

GUI  TRAJECTORY  TIME  AT  MOST  RECENT  GUIDANCE 

EVENT 

TARVAR  DESIRED  TARGET  TIMES  REFERENCED  TO  INITIAL 
TRAJECTORY  TIME 

ZEROAT  ROTATION  RATE  OF  LAUNCH  PLANET 

ZERDAT  LONGITUDE  OF  LAUNCH  SITE 


THREE 

TI 

TIMG(iO) 

TIN1 

TIH2 

TININT 

TIKS 

TIN 

TINJ 

TM 

THNCIOGO) 

THPR(3) 

TNOHB(3) 

TNOHC (7) 

THU 

THU 

T0L(6,1Q) 

TRTH 

T0L(6,1D> 
TOLR (6) 


DPNUH  THE  NUMBER  THREE  (3>  TO  NINE  SIGNIFICANT 
FIGURES 

ZEROAT  NOT  USED 

TAREAL  TIMES  OF  EACH  GUIDANCE  EVENT  REFERENCED 
TO  EPOCH-INITIAL  TIME,  SWI  TIME, 

OR  CA  TIME 

ZEROAT  TIME  OF  FIRST  BURN 

ZEROAT  TIME  OF  SECOND  BURN 

VM  TOTAL  TIME  USED 

TAREAL  INTERNAL  CLOCK  TIME  AT  START  CF  COMPUTER 

RUN 

TAREAL  JULIAN  DATE  AT  INJECT. JN 

BAIH  INJECTION  TIME 

VM  TINE  UNITS  PER  DAY 

HEAS  TIMES  OF  ME ASUREMENTF 

BAIN  MOST  RECENT  TARGET  STATE 

BAIM  NOMINAL  B-PLANE  TARGET  STATE 

BAIH  NOMINAL  CLOSEST  APPROACH  TARGET  STATE 

TAREAL  GRAVITATIONAL  CONSTANT  OF  TARGET  PLANET 

LUNART  GRAVITATIONAL  CONSTANT  OF  MOON (KM3/SEC2) 

TAREAL  ALLOWABLE  TOLERANCES  CF  TARGET  PARAMETERS 
FOR  EA.CH  GUIDANCE  EVENT 

TAREAL  TRAJECTORY  TIME  (DAYS)  REF.  TO  INJECTION 

TAREAL  TOLERANCES  OF  TARGET  PARAMETERS  FOR  EACH 
TARGETING  EVENT 

TAREAL  NOT  USED  IN  CURRENT  TARGET  VERSION 
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TPT2  (20) 

EVENT 

ARRAY  OF  TIMES  TO  WHICH  A PREDICTION  IS  MAOE 

TRTM 

TAREAL 

TRAJECTORY  TIME  ON  NOKTNAL  TRAJECTORY 

TRTM1 

TINE 

INITIAL  TRAJECTORY  TIME 

TRTMB 

TINE 

TRAJECTORY  TIME  AT  BEGINNING  OF  TRAJECTORY 

TSI 

LUNART 

PROJECTED  J.D.  AT  SOI  INERTSECTI^H 

tsjii 

TRJ 

TIME  AT  SPHERE  OF  ^NFLUCNCE  OF  ORIGINAL 
NOMINAL 

TS012 

TRJ 

TIME  AT  SPHERE  OF  INFLUENCE  OF  MOST  RECENT 
NOHINAL 

TSOI  3 

TRJ 

TIKE  AT  SPHtrvw  JF  INFLUENCE  OF  ACTUAL 
TRAJECTORY. 

TSPH 

LUNART 

RADIUS  OF  LUNAR  SOI  (KM) 

TTIM1 

SIHCNT 

FIRST  TIME  USED  FOR  UNMODELLEO 
ACCELERATION 

TTIH2 

SIHCNT 

SECOND  TIME  USED  FOR  UNMODELLEO 
ACCELERATION 

TTOL  (3) 

LUNART 

ALLOWABLE  TOLERANCES  IN  SMA,8.T,B.R 

TWO 

DPNOi*- 

THE  NUMBER  TWO  (2)  TO  Ni.NE  SIGNIFICANT 

FIGURES 

THOPI 

OPNUH 

THE  MATHEMATICAL  CONSTANT  2*PI 

TXU(6*8) 

stn 

STATE  TRANSITION  MfTR TZ  PARTITION 
ASSOCIATED  WllH  DYNAMIC  CJNSIQER  PARAMETERS 

T XXS (6*24) 

STH 

STATE  TRANSITION  MATRIX  PARTITION 
ASSOCIATED  Mi’iH  SOLVE-FOR  PARAMETERS 

UO  (3 » 8) 

STH 

. DYNAMIC  CONSIDER  PARAMETER  COVARIANCE 
MATRIX 

UNIVT 

TINE 

UNIVERSAL  TIME 

UNMAC  (3*3) 

SINCNT 

UNMODELLEO  ACCELERATION 

UST«3> 

C0NST2 

DIrXOTION  COSINES  OF  3 REFERENCE  STARS 

VC  16, 7) 

COM 

AN  ARRAY  WHICH  STORES  PERTINANT  VECTORS 
USED  IN  THE  CALCULATION  OF  THE  VIRTUAL 
MASS  TRAJECTORY 

(SEE  LARGE  ARRAY  OEFNS  IN  SECTION  5.3) 

vo(i5,i.,) 

STM 

MEASUREMENT  CONSIDER  PARAMETER  COVARIANCE 
MATRIX 

VHPM 

ZOUT 

MAGNITUDE  OF  HYPERBOLIC  EXCESS  VELOCITY 
AT  TARGET  BODY  (VHP  VECTOR) 

VINF 

6AIM 

HYPERBOLIC  EXCESS  VOLOCITY 

VK (2  > 3) 

PULS 

VELOCITY  VECTORS  OF  LAUNCH  AND  TARGET 
PLANETS  AT  IMPULSIVE  TIME  (MIDPOINT  OF 
PULSING  ARC) 

VHU 

VM 

GRAVITATIONAL  CONSTANT  OF  VIRTUAL  MASS 

V SI(3> 

v« 

VELOCITY  AT  SPHERE  OF  INFLUENCE 

VS0IK3) 

TRJ 

VELOCITY  AT  SPHERE  OF  INFLUENCE  ON 
ORIGINAL  NOMINAL 

VS0I2  (3) 

TRJ 

VELGCITY  AT  SPHERE  OF  INFLUENCE  ON  MOST 
RECENT  NOMINAL 

VSGI3  (3) 

TRJ 

VELOCITY  AT  SPHERE  OF  INFLUENCE  ON  ACTUAL 
TRAJECTORY 

yST<3> 

CONST  2 

DIRECTION  COSINES  OF  3 REFERENCE  STARS 

M (17) 

SI  Ml 

ACTUAL  DYNAMIC  NOISE 

WST  <3) 

C0NST2 

DIRECTION  COSINES  OF  3 REFERENCE  STARS 

XAC(5 y 10) 

TARVAR 

ACCURACY  LEVELS  EMPLOYED  IN  TARGETING 

X9<6) 

STVEC 

BEGINNING  ORIGINAL  NOMINAL  VEHICLE  STATE 
VECTOR 

Y8DT 

savval 

ORIGINAL  VALUE  OF  B.T  IN  N-l  GUIDANCE 

XBDR 

SAVVAL 

ORIGINAL  VALUE  OF  B.R  IN  N-L  GUIDANCE 

XOC 

SAVVAL 

ORIGINAL  VALUE  OF  DC  IN  N-L  GUIDANCE* 

XDELV (3,10) 

TARVAR 

NONLINEAR  VELOCITY  CORRECTION 

JR! 

a 


l 

I 

/ 

V 


XDSI 

SAVVAL 

original  value  of  tsi  in  n-l  guioance 

XDVHAXC10) 

TARVAR 

HAXIHUM  ALLOWABLE  VELOCITY  CORRECTION 

XF  (6) 

STVEC 

FINAL  VEHICLE  STATE  VECTOR  OF  ORIGINAL 
NOMINAL 

XFH6) 

SXH1 

FINAL  STATE  VECTOR  OF  MOST  RECENT  NOMINAL 
TRAJECTORY 

XFAC(IQ) 

TARVAR 

SPHERE  OF  INFLUENCE  FACTORS 

XG<6) 

GUI 

STATE  VECTOR  AT  TIKE  OF  LAST  GUIOANCE 
EVENT 

XX  (6) 

STVEC 

INITIAL  VEHICLE  STATE  VECTOR  OF  ORIGINAL 
NOMINAL 

XI1<  6) 

SXH1 

INITIAL  STATE  VECTOR  OF  MOST  RECENT 
NOMINAL 

XIN(S) 

OVERX 

STATE  VECTOR  TRANSFERRED  TO  NONLIN 

XLAB(6) 

XX  XL 

VEHICLE  POSITION/VELOCITY  VECTOR 
COMPONENT  NAMES 

XL AM (2, 2) 

PBLK 

PROJECTION  OF  TARGET  CONDITION  COVARIANCE 
MATRIX  INTO  THE  IMPACT  PLANE 

XLAMI<2,2) 

PBLK 

INVERSE  OF  XLAM(2  »2> 

XHUS(2> 

PBLK 

NOMINAL  IMPACT  PLANE  TARGET  STATE 

XNH<  24) 

XXXL 

AUGUMENTATION  PARAMETER  LABELS 

XP<6) 

BLK 

THE  POSITION  AND  VELOCITY  OF  A PLANET  IN 
HELIOCENTRIC  ECLIPTIC  COORDINATES 

XPERV ( 10) 

TARVAR 

VELOCITY  PERTURBATION  USED  TO  COMPUTE 
T Af.GETlNG  MATRIX 

XRCC6J 

SAVVAL 

‘ORIGINAL  VALUE  OF  RC  IN  N-L  GUIDANCE 

XRSI(3) 

SAVVAL 

ORIGINAL  VALUE  OF  RSI  IN  N-L  GUIOANCE 

s 

,1.  ^ 

t /. 

j 


i * 
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if 

n 

i 

" fj 


t 

r" 

+ 


XSL(24) 

XXXL 

SOLVE-FOR  PARAMETER  LABELS 

XTAR(6,10> 

TARVAR 

DESIREO  TARGET  VALUES  • 

XTQL  (6,10) 

TARVAR 

TOLERANCES  ON  TARGET  PARAMETERS 

XU(8> 

XXXL 

DYNAMIC  CONSIDER  PARAMETER  LABELS 

XV  (15  ) 

XXXL 

MEASUREMENT  CONSIDER  PARAMETER  LABELS 

XVSI (3) 

SAVVAL 

ORIGINAL  VALUE  OF  VSI  IN  N-w  GUIDANCE 

XXIN<6) 

EXE 

STATE  VECTOR  TRANSFERRED  TO  EXCUT  OR 
EXCUTS 

Z (17) 

SI  HI 

ACTUAL  STATE  VECTOR 

ZOAT (6) 

ZERO  AT 

ZERO  ITERATE  VECTOR 

IF  IZERO=  0 ZOAT ( 1-6) = INITIAL  STATE 

=2,3,4,  ZDAT ( 1-3) = INITIAL 

POSITION 

ZDAT (4-6)=  FINAL  POSITION 

ZERO 

OPNUH 

THE  NUMBER  ZERO  (0)  TO  NINE  SIGNIFICANT 
FIGURES 

ZI (17) 

SI  Ml 

INITIAL  ACTUAL  STATE  VECTOR 

ZF(6) 

SIM1 

FINAL  ACTUAL  STATE  VECTOR  AFTER  ADDING  THE 
EFFECT  OF  UNMODELED  ACCELERATION 
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5.3  Large  Array  Definitions 


In  thia  «ection  large  arrays  appearing  in  COMMON  will  be  displayed. 

The  arrays  depicted  are  frequently  referenced  in  trajectory  propagation 
subroutines  in^STEAP;  hence  the  programmer  studying  such  subroutines  will 
find  the  following  tables  extremely  useful. 

Tables  5.1  to  5.5  describe  arrays  containing  planetary  ephemeris  con- 
stants. The  values  actually  stored  in  these  arrays  may  be  found  in  the 
documentation  for  BLOCK  DATA.  Tables  5.6  through  5.8  contain  variables  used 
in  the  virtual  mass  propagation  procedure.  Discussions  of  these  variables 
may  be  found  in  VHP,  EPHZM,  ORB.  and  similar  routines. 


Constant 

t 

Q 

<jj 

e 

M 

a 

E 

ao 

ai 

Mercury 

1 

2 

3 

4 

5 

6 

• 7 

8 

1 

2 

Venus 

9 

10 

11 

12 

13 

14 

15 

16 

3 

4 

Earth 

17 

18 

19 

20 

21 

22 

23 

24 

* 

6 

Mars 

25 

26 

27 

28 

29 

30 

31 

32 

7 

8 

Jupiter 

33 

34 

35 

36 

37 

38 

39 

40 

9 

10 

Saturn 

41 

42 

43 

44 

45 

46 

47 

48 

11 

12 

Uranus 

49 

50 

51 

52 

53 

54 

55 

56 

13 

14 

Neptune 

57 

58 

59 

60 

61 

62 

63 

64 

15 

16 

Pluto 

65 

66 

67 

68 

69 

70 

71 

72 

17 

18 

Moon 

73 

74 

75 

76 

77 

78 

79 

80 

Table  5.1  EliOiX  Array  --  Conic  Elements  Table  5.2  SMJR  Array 


Constant 

*0 

4 

*2 

S 

% 

°1 

°2 

“3 

‘‘b 

*3 

eo 

"l 

e2 

e3 

Mo 

*1 

*2 

M3 

Mercury 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

Verms 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

Earth 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

Mara 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

Table  5.3  CN  Array  --  Inner  Planet  Constants 


Constant 

10 

4 

°L 

w0 

“l 

eQ 

el 

Mo 

*1 

Jupiter 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

Saturn 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

Uremia 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

Neptune 

31 

32 

33 

34 

35 

36 

37 

3£ 

39 

40 

Pluto 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

Table  5.4  ST  Array  — Outer  Planet  Constants 


Constant. 


Moon 


0 1 
1 2 


3 0 


3 L0  H L2  L' 


1 • . * 


3 4 5 6 7 8 9 10  11  12  13  14  15 


Table  5.5  EMM  Array  — Lunar  Constant* 


7-Array 


X1 

yl 

Z1  rl 

*1 

yl 

Z1  V1 

*S1 

ysi 

ZS1  rsi 

bote: 

xsi 

ysi 

ZS1  VS1 

Subscript  i indicates  component  is 
i-th  body  referenced  to  inertial 
coordinate  system 

X2 

y2 

Z2  r2 

Subscript  si  indicates  component 
is  spacecraft  referenced  to  i-th 

*2 

y2 

Z2  V2 

body 

*S2 

yS2 

ZS2  rS2 

XS2 

• 

• 

yS2 

• 

Z62  VS2 

• • 

• • 

• 

Table  5. 

• • • 

,6  F-Array  — Epbemeria 

Lata 

TEG  (1) 

COE  E 

TBG(5)  cos  1 

TEG(9)  cos  w TB3(13)  cob(u  + £) 

TEG (2)  • 

• In  E 

TRG(6)  sin  i 

TEG (10)  sin u>  TBG(14)  ain(£J  + f) 

TEG (3) 

coa  f 

TRG(7)  cos  Q 

TEG (11)  cos u 

TEG  (4) 

• in  £ 

TEG (8)  sin  Q 

TEG  (12)  sin 

Table  5*7  IRQ  Array  — . Trigoncaatric  Function* 


1 

I 

3 

4 

A 

• 

7 

l 

!*,  1 • », 

•dim  *B 

»». » -f. 

• dim  *® 

«»  i , • 
•dim  8 

w (d«4/0.  M (rifcdV L) 

D 

»•  ** 

1 

\ 

'•. 

a 

•• 

V . ly 
r dim  y 

('la>  ri.K 

dim 

<rH  > .r 

f . r 

dim 

s 

(*  ) . » 
•dim  a 

dim  B 

(*  ) , « 
•dim  a 

lAO  . Alp 

dim  r 

c* 

• 

X*. 

" 

• 

at. 

r 

U> 

(vaiociiy) 

• 

' % 
* dim  0 

‘V 

* dim  “ 

Cj\‘  ‘ '*B 
• dim  B 

U%‘  • ‘-B 

* <*<1™  ° 

(area  rate) 

a* 

(veloctty)2 

1 

• 

« 

-V 

Ioau) 

(cma  rate) 

» . At 

1 

u. ) . 

•a-  B 

‘V,’  ■ %B 

dim 

' ^B 

im 

<«.  ) . 
•dim  B 

At 

•» 

anr»g« 

> 

» 

^ •* 

*% 

U\)J 

averag* 

0>  "M 

• 

'«B 

a 

-B 

y 

J **B 

% 

r*8 

?„  • i®.  ) 
"d  v*.  , 

a . (o  ) 

••a  Y\ , 

10 

a 

y 

'r,» 

1 . K 

▼ V 

*vg  avg 

7 . ■ 

ar| 

% • s 

ayg  iv| 

n 

* 

"B 

"-a 

. 

T‘a 

* . 0 
V*B  K 

'••s- 

t , 0 

r.B*  a 

is 

t 

; . v’* 

X 

y . , ’*« 

B 

'*vV  r« 

t 

’«  * \.€ 

“«'  *7*  r 

* fl 

• 

IS 

V 

4,ma 

1. 

* 

i l,1'1 

»i»-  ■•;!> 

k1 

14 

\ 

v. 

1 

c©»  U >.  • 

79 

•u  (tt).  «E 

* dim 

‘V*. 

<V 

dim 

b8*  *B 

'y,b  ’ 7-b 

u 

w 

k» 

k* 

k 

a 

k , k3,  t> 

*. 

v E. 

7V.  • 7~ 

Y\  -B 

Table  5.8  'V-Array 


Virtual  Mass  Propagation  Variables 
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6.  INDIVIDUAL  SUBROUTINE  DOCUMENTATION 

This  chapter  contains  the  individual  documentation  for  all  the  sub- 
< routines  in  the  STEAP  II  aeries.  The  following  information  is  given  for 
each  subroutine. 

1.  Purpose:  The  tasks  performed  by  the  subroutine. 

2.  Calling  Sequence:  The  statement  by  vkich  the  subroutine  is  called. 

3.  Arguments:  The  arguments  m the  calling  sequence,  their  definition, 
and  identification  as  input,  output,  or  both. 

4.  Subroutines  Supported:  A list  of  subroutines  calling  the  sub- 

routine being  documented. 

5.  Subroutines  Required:  A list  of  subroutines  called  by  the  sub- 

routines being  documented. 

6.  Local  Symbols;  Tne  internal  (non-common)  variables  used  in  the 
subroutine  and  ’•heir  definitions. 

7.  Common  Computed /Used;  A list  of  variables  appearing  in  common 
blocks  which  are  both  computed  and  used  (see  Chapter  3 for 
definitions). 


8.  Common  Computed:  A list  of  common  variables  which  are  set  in  the 

program. 


9.'  Common  Used;  A list  of  common  variables  only  used  by  the  sub- 
routine. 

10.  Analysis:  The  detailed  mathematical  analysis  on  which  the  sub- 

routine is  based  (if  applicable). 

11.  Flowchart:  A flowchart  of  the  operation  of  the  program  (if  re- 

quired). 

The  reader  is  referred  to  Chapter  4 for  an  index  of  all  subroutines 
of  STEAP  II  C^ables  4. 1 and  4. 2)  and  for  the  calling  hierarchies  of  the  basic 
subprograms  o_  STEAP  II  (Figures. 4. 1 to  4.4). 
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SATCGN-A 


SUBROUTINE  BATCOM 

PURPOSES  BATCON  IS  A CONIC  PROPAGATOR  USING  THE  BATTIN  UNIVERSAL 
VARIABLE  FORMULATION* 

CALLING  SEQUENCE!  CALL  &ATCONCGM, RV ,VV ,DT , DV , SV > 


ARGUMENTS!  CM 


GRAVITATIONAL  CONSTANT 


RV  (3) 


INITIAL  POSITION  VECTOR 


VV(3) 


INITIAL  VELOCITY  VECTOR 


TIME  INTERVAL  OF  PROPAGATION 


0V(3) 


FINAL  POSITION  VECTOR 


SV(3> 


FINAL  VELOCITY  VECTOR 


SUBROUTINES  SUPPORTED!  PERHEL 
SUBROUTINES  REQUIRED!  NONE 


LOCAL  SYMBOLS!  ALP 


BATTIN  ALPHA  VARIABLE 


CONT 


SQRT  OF  ALP 
INTERMEDIATE  VARIABLE 


NORMALIZED  TIME 


DEL  X 


CORRECTION  TO  CURRENT  VALUE  OF  X 


E RAISED  TO  THE  ASQ*X  POWER 
F SERIES  FOR  VELOCITY  EVALUATED  AT  EPOCH 
F SERIES  FOR  POSITION  EVALUATED  AT  EPOCH 


GHSQ 


SQRT  OF  GRAVITIONAL  CONSTANT 


G SERIES  FOR  VELOCITY  EVALUTED  AT  EPOCH 
G- SERIES  COEFFICIENT  FOR  POSITION 
KEPLER-LIKE  EQUATION  ITERATION  COUNTER 
NAME  FOR  COMPONENTS  OF  INITIAL  POSITION 
MAGNITUDE  OF  INITIAL  POSITION 


SQUARE  OF  RO 
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BATCOii-B 


R 

SZG 

UO 

U1 

02 

U3 

VI 

V2 

X 


ITERATE  VALUE  OF  RADIUS 

INTERMEDIATE  VARIABLE 

eATTIN  TRANSCENDENTAL  FUNCTION 

BATTIN  TRANSCENDENTAL  FUNCTION 

8ATTIN  TRANSCENDENTAL  FUNCTION 

8ATTIN  TRANSCENDENTAL  FUNCTION 

NAME  FOR  COMPONENTS  OF  INITIAL  VELOCITY 

SQUARE  OF  INITIAL  SPEED 

BATTIN  ITERATION  VARIABLE 


\ 
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BATCOS  Asa ly ala 


BATCOH  la  a conic  propagator  using  the  Bat tin  universal  variable  formu- 
lation. A total  derivation  is  too  involved  to  be  given  here;  rather 
the  results  of  Battin'le  work  will  be  given  here. 

Let  the  initial  state  of  a point  naae  moving  under  the  Influence  of  a 
gravitational  force  /i  be  given  by  "r It  is  required  to  determine 

the  state  *r>,  at  a time  ? units  later.  It  is  useful  to  introduce  the 
parameters 

r • v 

„o  * o o 


xi  a 2 


Battin's  approach  is  to  introduce  a new  independent  variable  x(t)  in  place 
of  time  by  the  relation 


dx 

dt  ■ r(t) 


x(0)  - 0 


This  parametrination  greatly  simplifies  the  conic  propagation  problem.  For 
suppose  that  the  value  of  x corresponding  to  t ■ T is  given  by  X,  i.e.  x(T)  * X. 
Then  the  final  state  is  given  by 

"r  - R^X)  ? v S2(X)  "t 

* J <3> 

v . VX(X)  ro  v V2(X)  vo 


where 


B^X)  - 1 - rQ  D2(X) 
v „ n 


VX(X> 


U.(x) 

ro  ro  1 


1 ' 

-VT  rA(x)’ 


V,(X)  - 1 - — U,(X) 

1 ro 


BATCON-2 


and  where 


U(X) 

o 


i cos  & X 
> coah  X 


U2(X)  - 1-Po(X) 


a >o 
a <0 


UjU)  •- 


UjCX) 


"\  fa 


"U  • 


31  a x 


•y-a 

X-U^X) 

a 


u >C 

a < 0 


(5) 


The  problem  is  thus  reduced  to  the  determination  of  X.  X generated 
iteratively  by  the  recureive  formulae 


nrl 


» X 


V£"  t -VF  t 


x - Ax 


(6) 


where 


v£"  t 


- r D.  (x  ) «■  a U_U  ) ♦ U, (>.  ; 
n oln  2n  3 n 


r «*  r U ( x ) ^ U,  (x  ) ♦ U-(x  ) 

n oon  In  da 


(7) 


To  start  the  process  the  initial  guess  is  set  to 

*.  - Hjl.  ii- 


l 2r  2 
o 


-"JV  T 


6r 


i3  J. 


^ 2( 

- r (1-flr  )|^T 


(6) 


< 

?* 


t 


The  program  sets  X ■-  wh  en  the  correction  Ax  Is  less  than  10 
It  terminates  if  the  number  of  iterations  exceeds  10. 

References: 

Battin,  S.H.,  Astronautics!  Guidance,  McGraw-Hill  Book  Co., 

New  York,  1964. 

^attin,  R.  E.  and  Fraser,  D.C.,  Space  Guidance  and  Navigation,  AIAA 
Professional  Study  S»ries,  1970. 
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SUBROUTINE  BIAIM 

PURPOSE!  TO  PERFORM  BIASES  AIMPOINT  GUIDANCE. 
CALLING  SEQUENCE*  CALL  BIAIMIR.I, TEVN) 


ARGUMENT!  RI 


l NDMINA  SPACECRAFT  STATE  AT  TIME  OF  3IASED 
AIMPOINT  GUIDANCE  EVENT 


TEVN  I TIKE  OF  BIASED  AIMPOINT  GUIDANCE  EVENT 
SUBROUTINES  SUPPORTED!  GUISIN  GUIDK 


SUBROUTINES  REQUIRED* 
LOCAL  SYMBOLS  AQAi 

3B 

CSQ 

Cl 

C2 

'■  C3 

C4 
C5 
C 

DELHI) 

DENOM 

DET 


MATIN  POiCCM  PSIM  OCCHP 
VARIATION  MATRIX  AT  TIME  T <J  + 1> 

RIGHT  HALF  PARTITION  OF  AD Al  MATRIX 
CONSTANT  DEFINING  CONSTRAINT  ELL  IPSE 
A COEFFIEIENT  IN  THE  NECESSARY  CONDITION 
A COEFFIEIENT  IN  THE  NECESSARY  CONDITION 
A COEFFIEIENT  IN  THE  NECESSARY  CONDITION 
A COEFFIEIENT  IN  THE  NECESSARY  CONDITION 
A COEFFIEIENT  IN  THE  NECESSARY  CONDITION 
SQUARE  ROOT  OF  CSQ 
AIMPOINT  BIAS  IN  IMPACT  PLANE 
INTERMEDIATE  VARIABLE 

DETERMINANT  OF  PROJECTED  TARGET  CONDITION 
COVARIANCE  MATRIX 


OV8IAS  BIAS  VELOCITY  CORRECTION 

DVTT  TOTAL  VELOCITY  CORRECTION  IF  EIAS  IS 
REMOVED 

DVT  TOTAL  VELOCITY  CORRECTION  IF  BIAS  IS 

APPLIED 

DVUPP  UPDATE  VELOCITY  ITERATE 

01  PARTIAL  DERI V.  7IVE  USEO  IN  NEWTON 

ITERATION  TECHNIQUE 


02 

03 

04 

EE 

IKNT 

IS 

ITRN 

N0IH1S 

NDIN2S 

PHI  I 

PHI1 

PSIJ1 

•>SIJ 

auoT 

RF 

SAVET 
SUH1 
SUH 
TWQE 
VC  A 

• XK4 
XHU 
XH1 
XM2 
XH 


PARTIAL  DERIVATIVE  USEO  IN  NEWTON 
IVERATION  TECHNIQUE 

PARTIAL  DERIVATIVE  USED  IN  NEWTON 
ITERATION  TECHNIQUE 

PARTIAL  DERIVATIVE  USED  IN  NEWTON 
ITERATION  TECHNIQUE 

MATRIX  DEFINING  FUNCTION  TO  3E  HINIHIZEO 
COUNTER  ON  NEWTON  ITERATION  L COP 
INDEX  OF  NEXT  GUIDANCE  EVENT 
COUNTER  ON  OUTER  ITERATION  LOOP 
STORAGE  FOR  N0IM1 
STORAGE  FOR  N0IH2 

INVERSE  OF  STATE  TRANSITION  HATRIX 

INTERHEOI ATE  ARRAY 

GUIDANCE  HATRIX  PSI  AT  T(Jrl) 

GUIDANCE  HATRIX  PSI  AT  EVENT  TIKE  TiJ> 

INTERHEOI ATE  VARIABLE 

DUHHY  VECTOR 

STORAGE  FOR  TRTM1 

INTERMEDIATE  VARIABLE 

INTERMEDIATE  VARIABLE 

CONSTANT  DEFINING  CONSTRAINT  ELLIPSE 

SPACECRAFT  CLOSEST  APPROACH  VELOCITY 
RELATIVE  TO  TARGET  PLANET 

INTERHEOI ATE  VARIABLE 

HOST  RECENT  IMPACT  PLANE  AIHPOINT 

AIHPOINT  ITERATE 

AIHPOINT  ITERATE 

STORAGE  FOR  MOST  RECENT  AIHPOINT  ITERATE 


i 


-L~. 


BIAEI-C 


V 

i 


XN1 

NEGATIVE  OF  CONSTRAINT  EQUATION  EVALUATED 
AT  MOST  RECENT  AIMPOINT  ITERATE 

K 

i 

i 

XN2 

NEGATIVE  OF  NECESSARY  CONDITION  EVALUATED 
AT  HOST  RECENT  AIMPOINT  ITERATE 

i 

i 

\ 

♦ 

YY 

INTERMEDIATE  VAR I A OLE 

i 

J 

ZH 

AIKP0INT  INCREMENT  FOR  HGST  RECENT 
ITERATION 

1 

I 

i 

ZK 

AIMPOINT  INCREMENT  FOR  HOST  RECENT 
ITERATION 

COMMON  COMPUTED/USEDl 

A 

OR 

DVN 

DVftQ 

OVUP 

ry  r r 

s_  - • 

IBIAS 

IIGP 

PHIZ 

RCA 

TMPR 

TP.T  Hi 

XMUS 

COMMON  COMPUTED! 

DELTK 

COMMON  USED* 

AO  A 

A L G T H 

ATRANS 

DUMMY Q 

EM3 

I0ENS 

I E N 0 

IGUID 

II 

ISTHC 

ITR 

NTP 

ONE 

PHI 

PMASS 

POI 

PROS  I 

RADIUS 

TINJ 

TH 

TMOKB 

TNOMC 

TWO 

T3 

VINF 

XL  AMI 

XL  AM 

ZERO 

L- 


biaim-1 


BIAIM  Analysis 
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Subroutine  BIAIK  performs  biased  a la point  guidance  computations.  If 
planetary  quarantine  constraints  are  in  effect  at  injection  or  at  a 
midcourse  correction,  and  if  the  nominal  aimpolnt  does  not  satisfy  these 
constraints,  subroutine  BIAIM  will  compute  a biased  aimpolnt  and  the 
required  bias  velocity  correction  such  that  the  constraints  are  satisfied 
and  some  performance  functional  la  minimized. 

Aimpolnt  biasing  Is  performed  in  the  impact  plane  and  as  such  permits 
only  two  degrees  of  freedom  in  the  selection  of  the  biased  aimpolnt.  The 
general  aimpolnt  in  the  Impact  plane  will  be  denoted  by  the  2-dimenslonal 
vector  fi  , where  the  J-subscript  indicates  that  the  biased  aimpoint 

guidance  event  is  occurring  at  time  t^.  Three  midcourse  guidance  policies 

are  available  in  STEAP , and  it  will  be  necessary  to  relate  fl  to  the 


specific  aimpolnt  for  each  of  these  three  policies, 
are  aunsnarized  below: 


These  relationships 


(a)  Two-variable  B- plane  (2VB?)  : 

B • T 


b * a 


(b)  Three-variable  Biplane  (3VBP) : 


(1) 


v 


1 

0 


0 0 
1 0 j 


(c)  Fixed- tlme-of-arrival  (FTA); 


T 

E 


L csi 


(2) 


v 


• A r 


CA 


(3) 


where  is  the  nominal  closest  approach  position  of  the  spacecraft 

relative  to  the  target  planet.  Coordinate  transformation  A projects 
the  3-dimensional  vector  (referred  to  ecliptic  coordinates)  into 

an  equivalent  FTA  impact  plane  which  is  defined  to  be  the  plane 
containing  and  perpendicular  to  the  spacecraft  closest  approach 

velocity  v^  relative  to  the  target  planet.  If  the  ecliptic 


'CA 

coordinates  of  r_.  and  v_,  are  denoted  by  r , r , r and 
CA  CA  x y z 

v , v , respectively,  then  the  transformation  a is  given  by 


i y 
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A - 


CA 


r v - r v 
y _z z v 

rCA  VCA 


CA 


r v 
2 x 


r v 

X 2 


rCA  VCA 


kCA 


r v - r v 
:■:  / v x 

rCA  VCA 


(4) 


Spucecraft  state  variations  at  tj  are  related  to  aimpoint  variations 
(target  condition  variations)  by  the  variation  matrix  Tj  , which  is  always 

J 

available  prior  to  calling  BIAIM.  Thus,  the  statistical  state  dispersions 
about  the  nominal  following  the  guidance  correction  at  t and  represented 

*+■ 

by  the  control  covariance  P , can  be  related  to  the  dispersions  about 

c i 

- -t* 

the  nominal  aimpoint  represented  by  according  to  the  equation 


+ ■+ 

W - /),  ? 

J j 


c-  ri- 
J J 


(5) 


The  control  covariance  P,"*"  is  comouted  from 

"J 


C 

0 


5.1 


e,  j 


(6) 


where  i6  the  knowledge  covariance  prior  to  the  guidance  event  and 

r*J  J 


Qj  is  the  execution  error  covariance. 


Transformations  employed  in  equations  (1)  through  (3)  can  aisc  be  employe 
to  project  W,  into  the  impact  plane.  The  resulting  projection  is  deno 


d 

denoted 


by  the  covariance  -A.,  and  is  obtained  from  V + 


equations : 
(a)  2VBP 


(b) 


3VBP 


J 

A 


j 


- w 


A - 

j 


i 

o 


0 

1 


0 

0 


V 


1 

0 

10 


according  to  the  followinj 

(7) 

01  (8) 

1 

0. 


(c)  FTA 


A 


-AW 


(9) 
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With  covariance  ■/[.  available,  it  la  now  possible  to  compute  the 

probability  of  impact  P0I.  Assuming  the  probability  density  function 
associated  with  la  gausslan  and  nearly  constant  over  the  target 

planet  capture  area  permits  us  to  compute  P0I  using  the  equation 


f 

! 


P01  - 7T  Rc  P 


CIO) 


where  E is  the  target  planet  capture  radius  and  p represents  the 
c 

gausslan  density  function  evaluated  at  the  target  planet  center  and  is 
given  by 


P - 


2n  ] A 

J 


exp 


- 1 £ *T  A 

2 


— * 

n 


(11) 


-*■  * 


The  nominal  impact  plane  aimpoint  is  denoted  by  H . Subroutine  BIAIM 
calls  subroutine  P0ICj24  to  perform  the  computations  Involved  in  equations 
(7)  through  (11). 


Capture  radius  E is  simply  the  physical  radius  R of  tne  target 
c p 

placet  if  the  PTA  guidance  policy  is  employed,  while  for  the  two  5- plane 

;licies  the  capture  radiua  is  given  by 


R - 

c 


R 


2fl 


V 2 R 


(1-) 


wh're  is  the  target  planet  gravitational  constant  and  V. 

hyperbolic  excess  velocity. 


is  the 


If  the  probability  cf  impact  P0I  does  not  exceed  the  permissible  impact 


probability  P 


and  if  the  nominal  aimpoint  has  not  been  previously 


biased,  we  simply  return  to  subroutine  GUIDM  (or  GtJISIM) . If_  the  nominal 
aimpoint  has  been  previously  biased,  a velocity  correction  AV^g  required 

J 

to  remove  that  bias  Is  computed  prior  to  returning.  But  if  P0I  exceeds 

P_,  an  aimpoint  bias  8/i  and  the  associated  bias  velocity  correction  AV 

1 J a. 

must  be  computed.  Before  describing  the  details  of  th£  biasing  technique 
it  is  necessary  to  define  the  relationship  between  AV  ana  for 

Linear  midcourse  guidance  policies.  ^ -< 


Linear  impulsive  guidance  policies  have  form 

AV 


) 


r ax 

J j 


C3) 
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* V‘ 


I . 
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where  ifl  the  guidance  matrix  and  5X^  is  the  spacecraft  state 

deviation  from  the  targeted  nominal  trajectory.  (These  guidance  policies 
are  discussed  In  more  detail  In  the  subroutine  GT'IS  analysis  section.) 

Such  guidance  policies  can  be  readily  generalised  to  account  for  changes 
in  the  target  conditions  from  their  nominal  values.  This  generalized 
version  of  equation  (13)  has  form 

AV.  - r 5X  +l^  (1  w 

J J J j j 


where  ^ can  also  be  referred  tc  as  a guidance  matrix.  For  the  purposes 

of  the  BIAIM  analysis,  we  shall  assume  that  in  quatien  (Id)  is 

always  an  aimpoint  change  in  the  ic,ui^t  plane.  Thus,  . will  be  a 3x2 

guidance  matrix.  The  derivation  of  the  O matrix  is  quite  similar  to 

the  derivation  of  the  p matrix  and  will  not  be  p r e a i e c here.  Il  we 

partition  the  previously  discussed  variation  matrix  rl  as  follows: 

j 

”<  - K I Vj  (15> 


then  the  ^ matrices  for  the  three  micccur»e  guidance  policies  are 

J 

given  by  the  following  equations : 


(a) 

2 VHP  : 

T 

“ r>  (7) 

T -1 
V ) 

(16) 

j 

2 ^ 

2 

_ i 

(b) 

3VB?  : 

w. 

- * ‘ [I 

o] 

(17) 

•J 

J i° 

’I  1 

[_o 

~ I 

<>J 

(c) 

m : 

A 

- n at 

(18) 

If  an  aimpoint  bias  were  to  be  removed  at  time  t , the  required  velocity 
correction  would  be  given  by  J 


AV 


&B 


J 


- '-if  6U 

J J 


(15) 


If  an  aimpoint  bias  verc  to  be  imparted  at  time  t^  , tne  bias  velocity 
correction  would  be  given  by  -1 


AV. 


4p 


uo ; 


< 

J 


i 

I 

1 


\ 

i 

« 
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If  an  aimpoint  bias  i{L 

(2)  J 


(1) 


almpoiat  bias  6 


l 


1 


had  beta  previously  imparted,  and  if  a new 
la  to  be  imparted,  then  the  total  bias  velocity 


correction  would  be  given  by 


(21) 


The  general  statement  of  the  biased  almpolnt  guidance  problem  is  as  follows: 
Find  an  aimpoint  in  the  impact  plane  which  satisfies  the  impact 

probability  constraint 


PPI  A ?x 


(22) 


and  minimizes  a performance  functional  having  form 

T 

J “ ( ^ - £*)  A ( ft  - £*)  (23) 

«*■  ★ # 

where  /i  is  the  nominal  aimpoint  and  A is  a constant  symmetric  matrix 

that  will  be  defined  subsequently. 


The  solution  of  this  problem  is  detailed  in  the  section  on  biased  aimpoint 
guidance  in  the  analytical  manual.  Only  the  results  vill  be  presented  here. 
The  assumption  of  constant  probability  density  over  the  target  planet 
capture  area  permits  us  to  rewrite  constraint  equation  (22)  as 


2 2 

A U + 2A  U.  II  + k II 
1M1  2 2 


- C 


(24) 


where 


and  [i 


L 2 1 A\ * PJ;  J 


1 

and  Jl  ^ ■ 
* 

"A 

T 

A 

S' 

IaJ 

IS 

SJ 

(23) 


The  inequality  has  been  replaced  by  an  equality  since  the  solution  can  bc 
6hown  to  lie  on  the  constraint  boundary,  which,  from  inspection  of  equation 
(24)  is  an  ellipse  centered  at  the  target  planet. 


If  is  the  time  of  the  final  midcourse  correction,  matrix  A will  be 

chosen  as  a 2x2  identity  matrix.  The  minimization  of  J is  then  equivalent 


If 


to  minimization  of  the  miss  distance  | ^ j . ^ 

final  midccuree  correction  time,  A will  be 'defined  as  follows: 


is  not  the 
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A - * 

J+l  J+l 


(26) 


U«ra  ^ denotes  eh  a a la point  guidance  matrix  for  tha  next  midcourae 

I 

correction  occurring  at  time  t^  . In  this  case  the  minimization  of  J 


la  equivalent  to  the  minimization  of  AV. 


■RB 


J+l 


, i.e. , the  velocity 


required  to  remove  bine  at  time  tj+1  will  by  minimized.  The 

computation  of  ^ i«  haaed  on  the  variation  matrix  *7^,  JuSt  as 
was  based  on  TJ  . However,  1}  can  be  computed  more  efficiently  by 

J J+l 

using  the  relationship 

-1 

rj  m Tj  <P  (27) 

J+l  j J+l,  J 


where  0 is  the  state  transition  matrix  over 

J+l » J 


[ V cj+i]' 


If  we  define 


«v 

A - 


a a 
3 2-> 


then  the  necessary  condition  for  a minimum  is  given  by 

2 2 

(aX-aX)l2+(flX  - a l )li  + (a  X - a X ) U U 
13  3 1 M1  3 2 2*3^2  1 2 2 1 *1^2 


+ <-lSV-  ‘3X3''2‘+a3Jll/il‘+a2Xl"2*) 


(-a  X U * ~ a X U * + a X X/*+aX../l*)w  “ 

1 2^1  3 2P2  3 3 2 3M2*  ^2 


(28) 


Thus,  our  problem  is  reduced  to  finding 


and 


which  satisfy 


equations  (24)  and  (28).  Since  the  analytical  solution  of  these  equations 
proved  intractable,  a standard  Newton  iteration  technique  is  employed  in 
BIAIM  which  quickly  converges  to  solutions  for  and  • The  iteration 

proceaa  is  started  with  an  initial  guess  defined  as  the  intersection  of  the 
extended  /2*  vector  and  the  constraint  boundary  defined  by  equation  (24). 

This  initial  guess  la  given  by 


BIAIM- 7 


where  c la  defined  by  equation  (25). 


In  addition  to  the  previously  described  Iteration  process,  subroutine 
BIAIM  also  employs  an  outer  iteration  loop  which  accounts  for  the  depen- 
dence of  (equation  (6))  on  4/3  • execution  error  covariance  ^ 

but  the  totu; 


‘j  ’ -j 

is  a function  of  the  total  velocity  corre  ..ion  at  t 


j 


) 


This  coupling 


velocity  correction,  in  particular  AVg  , depends  on 

ia  resolved  by  recomputing  ^ at  the  end  of  the  previously  described 
'biasing  technique  and  repeating  the  biasing  cycle  until  the  error  function 


*01 


Pj  x 10 


-3 


Is  satisfied.  This  outer  iteration  process  1b  not  performed,  however,  if 
tj  ■ injection  time  since  at  injection  equation  (6)  iw  replaced  by  the 

equation 


P 

c 


J 


and 


la  always  zero. 


Mitchell,  R.  ,T.,  and  Wong,  S.  R.s  Preliminary  Flight  Path 
Analysis  Orbit  Determination  and  Maneuver  Strategy  Mariner 
Mars  1969.  Project  Document  138,  Jet  Propulsion  Laboratory, 


1968. 


Reference: 
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BZAZH-S 


s«  ■ 

V 

f 

Call  QC£K?  to  coo 
error  covariance 

pute  execution 

Write  out  and  Q. 

RB  J 


• insulation 


mode  - ? 


error  aaalysie 


Set  Av  - Av  + Av 
UP  RB  H 


Set  Av  - AV  . 
UP  ° RB 


Call  P^IC^H  to  compute  and 
write  out  and  P#I  for 

the  nominal  aimpoint. 


P0I  4 p ? 
I 


Set  fi  •>  H *. 
Set  XBXAS  - 0 . 


RBTURH 


Will  a velocity  bias 
be  actually  imparted? 


YES 

\ 


Set  1B1AS  - 1 . 


9 V 

BIAIM- 10 

• tine  of  final  N. 

mldcoursa  correction?  / 

NO 

Set  A - I. 


Set^t  - tj+1  - t^  and  call 

FSBl  to  compute  the  state 
transition  matrix  $(tj+^,tj). 


Call  KATIN  to  compute 


Compute  variation  matrix  7} 


Compute  fij+i  matrix  for  the 
appropriate  guidance  policy. 


Compute  A - 0j+1 


IDENS  i 1 1 


Writ*!  IDENS  0KI0N 
NpT  AVAILABLE. 


Compute  constants  defining  the 
elliptical  constraint  bounds r, 
associated  with  -A. . . 


Ill 


T?rW, 


BIAIM- 11 


V- 


\ 


1.. 


BIAS-A 


r 

SUBROUTINE  BIAS 

PURPOSE I COMPUTE  THE  ACTUAL  MEASUREHENT  BIAS  IN  THE  SIMULATION 
PROGRAM 

RETURN  THE  ACTUAL  MEASUREMENT  BIAS  TO  BE  USED  IN  THE 
SIMULATION  MODE. 

CALLING  SERUE MCE l CALL  BIAS (MCOOE»BVAL> 

ARGUMENT I BVAL  0 THE  ACTUAL  BIAS  TO  BE  USED  IN  THE 

MEASUREHENT 

HCOOE  I MEASUREMENT  TYPE  COOE 
SUBROUTINES  SUPPORTED!  SIHULL 

COMMON  USED!  BI A 


© 


Q 


y 
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BIAS-1 


BIAS  Analyst a 

The  actual  uramint  T*  at  time  t^  la  given  by 

ij  - ik  * ^ ♦ *k 

where  la  the  ideal  measurement,  which  would  be  Bade  in  the  absence 

of  instrumentation  errors,  b^  is  the  actual  aeasuresent  bias  and 
represents  the  actual  measurement  noise. 


The  function  of  subroutine  BIA3  is  to  compute  the  aeasuresent  bias  b.._ 

for  the  appropriate  measurement  type.  The  constant  biases  for  all  seasure- 
aent  devices  are  stored  in  the  vector  BIA.  Subroutine  BIAS  selects  the 
appropriate  elements  from  this  vector  to  cons  tract  the  actual  measureaent 
bias. 


» 


* 
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BIXMX-A 


BLOCK  DATA 

PURPOSE  I TO  LOAD  CONSTANTS  INTO  COMMON  LOCATIONS  USED  XM  VARlCCS 
OTHER  PARTS  OP  THE  PROGRAM. 

CALLING  SEQUENCE!  NONE 

ARGUMENT!  NONE 

SUBROUTINES  SUPPORTED  HALF  THE  SUBROUTINES  USE  THE  CONSTANTS 

STORED  BY  THIS  SUBROUTINE 

SUBROUTINES  REQUIRED  NONE 

COMMON  LOADED  CN1  CN  ELNNT  EMM  EVNM 

RADIUS  RAO  RHASS  SHJR  SPHERE 

F MNNAHE  PI  PLANET  PHASS 

ST 


1 


t 


HLEDAT-1 


BLKMX  Analyst! 


Subroutine  B1XDAT  la  raaponalblo  for  aattlng  up  constants  used  in 
computing  ephemerls  date  for  the  gravitating  bodies. 


The  arrays  set  up  by  BLKDAI  and  their  definitions  are  as  follows: 


Array 

CH(80) 

ST  (50) 
SMJR(IB) 

EMN(15) 
FHASS(ll) 
RMASS (11) 
RADIUS (11) 
SPHERE (11) 
MONTH (12) 
PIANET(ll) 


Definition 

Constanta  defining  mean  elements  for  inner  planets 
Constants  defining  mean  elements  for  outer  planets 
Constants  defining  semi-major  axes  for  planets  and 
moon 

Constants  defining  lunar  elements 

Gravitational  constants  of  sun,  planets,  and  moon 

Hass  of  bodies  relative  to  sun 

Surface  radii  of  sun,  planets,  and  moon 

Sphere  of  influence  radii  of  sun,  planets,  and  moon 

Names  of  months  for  output  purposes 

Names  of  planets  for  output  purposes 


The  definitions  of  the  CN,  ST,  SMJR,  and  BIN  arrays  are  provided  in 
Tables  2 through  5 on  the  following  page.  The  actual  constants  stored 
in  those  arrays  are  the  ephemerlB  data  listed  on  the  next  pages  following. 


The  constants  stored  in  the  other  arrays  are  given  below. 


Body 

BfASS  (AU3/day2) 

BHASS* 

RADIUS  (AU) 

SPHERE  (AU) 

Sun 

2.959122083(-4) 

1.0 

4. 66582 (-3) 

NA 

Mercury 

4. 850  (-11) 

1.639(-7) 

1.617(-5) 

7. 46  (-4) 

Venus 

7. 243 (-10) 

2 .448 (-6) 

4.044(-5) 

4 . 12  (-3) 

Earth 

8. 88 75 7 (-10) 

3. 003  (-6) 

4.263(-5) 

6. 18(-3) 

Mars 

9. 5497905 (-11) 

3.236(-7) 

2.279(-5) 

3. 78(-3) 

Jupiter 

2. 8252  (-7) 

9.547 (-4) 

4. 7727(-4) 

.3216 

Saturn 

8.454 (-8) 

2. 85  7 (-4) 

4.0374(-4) 

.3246 

Uranus 

1.290(-8) 

4.359(-5) 

1.576K-4) 

.346 

Neptune 

1.5(-8) 

5.069(-5) 

1.4906(-4) 

.5805 

Pluto 

7.4(-10) 

2.501(-6) 

4.679(-5) 

.2366 

Moon 

1.092l748(-ll) 

3.696(-8) 

1.16K-5) 

3.71394 (-4) 

* Truncated  from  program  values 
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BLKMT-2 

s- 

t 

Array  Definition* 

I 


Conatant 

1 

a 

»v 

(J 

e 

Mercury 

1 

2 

3 

4 

Venus 

9 

10 

11 

12 

Earth 

17 

18 

19 

20 

Mars 

25 

26 

27 

28 

Jupiter 

33 

34 

35 

36 

6a turn 

41 

42 

43 

44 

Uranus 

49 

50 

51 

52 

Neptune 

57 

58 

59 

60 

Pluto 

65 

66 

67 

68 

Moon 

73 

74 

75 

76 

M 

a 

U 

E 

*1 

5 

6 

7 

8 

1 

2 

13 

14 

15 

16 

3 

4 

21 

22 

23 

24 

5 

6 

29 

30 

31 

32 

7 

8 

37 

38 

39 

40 

9 

10 

45 

46 

47 

48 

11 

12 

53 

54 

55 

56 

13 

14 

61 

62 

63 

64 

15 

16 

69 

70 

71 

72 

17 

18 

77 

78 

79 

80 

Table  1.  ELXHT  Array  — Conic  Eleaenta 


Table  2.  SMJR  Array 


t““  *0  H ‘2  ‘3  °0  *1  ai  % % * % *4  '0  *1  *2  e3  *0  “l  H2  *S 


Mercury  1 2 3 4 5 6 7 8 9 10  11  12  13  14  15  16  17  18  19  20 
Venua  21  22  23  24  25  26  27  28  29  30  31  32  33  34  35  36  37  38  39  40 
Earth  41  42  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57  58  59  60 
Mara  61  62  63  64  65  66  67  68  69  70  71  72  73  74  75  76  77  78  79  80 

Table  3.  Cl  Array  — Inner  Planet  Con* tan t a 


Constant 

*0 

H 

^0 

<6* 

wo 

as/ 

wi 

*0 

*1 

*0 

*1 

Jupiter 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

8a turn 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

Uranus 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

Heptuna 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

Pluto 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

Table  4.  ST  Array  — Outer  Planet  Con* tan ta 


Conatant  ^2  ^3  ^0  "l  “l  “j  ^ H S S 1 * 8 

Moon  1 2 3 4 5 6 7 8 9 10  11  12  13  14  15 

Table  5.  BIB  Array  ~ Lunar  Conatant* 
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BLKBAT-3 


71a notary  And  Utu r Epfaenerlda* 


Mean  Element*  of  Mercury 

I - 0.1222233228  ♦ 3.24776683  x 10"5  T - 3.199770293  x 10’7  T2 

0-  0.8228318595  ♦ 2.068578774  x 10“2  T ♦ 3.034933644  x 10*6  T2 

w-  1.3246996178  ♦ 2.714840259  x 10"2  t + 5.143873156  x 10‘6  X2 

• - 0.20361421  + 0.00002046  T - 0.000000030  T2 

M - 1.785111955  + 7.142471000  x 10“2  d ♦ 8.72664626  x iO*9  D2 
a - 0.3870986  A.U.  - 57.909.370  fat 
Mean  Element*  of  Venus 

i - 0.0592300268  4 1.7555510339  x 10'5  I - 1.696847884  x 10"8  T2 
1.3226043500  4 1.570134527  x 10’2  t ► 7.155849933  x 10“6  T2 

W-  2.2717874391  4 2.457486613  x 10“2  T f 1.704120089  x 10-5  T2 

e - 0,00682069  - 0.00004774  T 4 0.000000091  T2 

II  - 3.710626172  4 2.796244623  x 10"2  d 4 1.682497399  x 10“6  D2 
a - 0.7233316  A. 0.  - 108,209.322  fas 

Mean  Elements  of  Earth 

1- 0 
Q - 0 

U - 1.7666368138  4 3.000526417  x 10 " 2 T 4 7.902463002  x 10"6  T2 
4 5.817764173  x 10"8  T3 
e - 0.01675104  - 0.00004180  T - 0.000000126  T2 
M - 6.256583781  4 1.720196977  x 10“2  d - 1.954768762  x 10"7  D2 
- 1.22173047  x 10-9  D3 
a - 1.0000003  A.U.  - 149,598,530  fat 
Mean  Element*  of  Mara 

i - 0.0322944089  - 1.178097245  x IO-5  t ♦ 2.201054112  x 10“ 7 T2 


1 


BLSLDAT- 


n - 0.8514840373  + 1.345634309  x 10’2  T - 2.424068406  x 10*8  T2 
- 9.308422677  x 10‘8  T3 

W - 5.6332085069  ♦ 3.212729363  x 10“2  T 2.266303939  x 10'6  I2 
-2.084698829  x 10* 8 I3 

• - 0.09331290  + 0.000092064  X - 0.000000077  X2 
M - 3.576840523  + 9.145887726  x 10“3  d + 2.365444735  x 10-7  D2 
♦ 4.363323130  x lo"l°  D3 
x - 1.5236915  4.0.  - 227,941,963  tan 
Mean  Element*  of  Jupiter 

1 - 0.0228410270  - 9.696273622  x 10”  5 T 
9 - 1.7355180770  + 1.764479392  x 10"2  T 
W-  0.2218561704  ♦ 2.812302353  x 10~2  T 
e - 0.0483376  -4-  0.00016302  T 
M - 3.93135411  + 1.450191928  x 10”3  d 
« - 5.202803  A.D.  - 778,331,525  tan 
Keen  Element  of  Be turn 

1 - 0.0435037861  - 7.757018898  x 10”8  T 
Q - 1.9684445802  + 1.523977870  x 10-2  T 
ft-  1.5897996653  ♦ 3.419861162  x 10”2  T 
e - 0.0558900  - 0.00034705  T 
K - 3.0426210430  + 5.837120844  x iO”4  d 
« - 9.538843  A.B.  - 1,426,996,160  tan 
Keen  Element*  of  Ut*ou* 

i - 0.0134865470  + 0.696273622  x 10’6  T 
Q - 1.2826407705  ♦ 8.912087493  x IQ’3  T 
ft-  2.9502426085  + 2.834608631  x 10'2  X 


v 
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HLKDAT-5 


e - 0.0470463  ♦ 0.00027204  T 

>4 

M - 1.2843599198  + 2.046548840  * 10  d 

a - (19.182281  - 0.00037008  T)  A.U.  - <2,869,640,310  - 6J271  I)  fan 
Kean  Element*  of  Heptune 

i - 0.0310537707  - 1.599885148  x 10'4  T 
■Q-  2.2810642235  + 1.923032859  x 10"2  T 

> A 8 n 

U)  - 0.7638202701  ♦ 1.532704516  x 10"z  1 
a - 0.00852849  + 0.00007701  T 

> 

M - 0.7204851506  + 1.033089473  x 10”4  d 

a - (30.057053  + 0.001210166  T)  A.U.  - (4,496,490,000  ♦ 181039  T)  tea 
Mean  Element*  of  Pluto 

i - 0.2996706970859694 
Q - 1.1914337550102258 
W - 3.909919302791948 
e - 0.2488033053623924 

M - 3.993890007  + 0.6962635708298997  x 10-4 
a - 39.37364135300176  A.U.  - 5,890,213,786,145,730  km 
Mean  Element*  of  Moon 
i - 5.1453964° 

Q - 259.183275°  - 0.0529539222d  + 0.002078  T2  + 0.000002  T3 
0)-  334.329556°  + 0. 1114040803d  - 0.010325  T2  - 0.000012  T3 
L - 270.434164°  ♦ 13.1763965268d  - 0.001133  T2  + 0.0000019  T3 
a - .00256954448  A.U. 
e - 0.054900489 
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BULBA  T- 6 


Iota  It  The  above  elements  ere  referred  to  the  mean  equinox  and  ecliptic 
of  data  except  for  Plato. 

Kota  2 i The  elements  for  ploto  era  oscillating  values  for  epoch  I960 
September  23.0  Z.T.  - J.D.  2437200.5 

Iota  3:  The  time  interval  from  the  epoch  la  denoted  by  T when  manured 

in  Julian  centwrles  of  36,525  ephemerls  days,  by  D ■ 3.6525  T 
when  measured  in  units  of  10,000  ephemerls  days,  and  by  d ■ 

10,0000  ■ 36,525  T when  measured  in  ephemerls  days.  Times  are 
measured  with  respect  to  the  epoch  1900  January  0.5  Z.T.  - JJ>. 
2415020.0. 

Kota  4t  Angular  relations  are  expressed  in  radians  for  planets  and  degrees 
for  moon. 


References : (1)  Space  Research  Conic  Program,  Phase  HI,  J.P.L. , May  1969 

(Planetary  constants) 

(2)  The  American  Ephemerls  and  Hautlcal  Almanac  - 1965,  U.S. 
Government  Printing  Office,  Washington,  p.  493  (Lunar 
constants) 
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ARGUMENT! 


CABEI/-A 

SUBROUTINE  CAREL 

PURPOSE!  TRANSFORM  CARTESIAN  COORDINATES  TO  CONZC  ELEMENTS 
CALLING  SEQUENCE!  CALL  CAREL(GM,R,V,TFP,A,E>MtXX,XN, TA,PP,QQ,HM) 

I GRAVITATIONAL  CONSTANT  OF  THE  CENTRAL  BOOT 
POSITION  VECTOR  RELATIVE  TO  CENTRAL  BOOT 
VELOCITY  VECTOR  RELATIVE  TO  CENTRAL  BOOT 
TIME  OF  FLIGHT  FROM  PERIAPSXS  ON  THE  CONIC 
SENI-HAJOR  AXIS  OF  THE  CONIC 
ECCENTRICITY  OF  THE  CONIC 
ARGUMENT  OF  PERXAPSIS  OF  THE  CONIC 


GN 

R(3) 

V(3) 

TFP 

A 

E 

M 

XI 


I 

I 

0 

0 

0 

0 

0 


INCLINATION  OF  THE  CONIC  TO  THE  REFERENCE 
FRAME 


XN  0 LONGITUDE  OF  THE  ASCfNDIMG  NODE  OF  THE 

CONIC 

TA  0 INSTANTANEOUS  TRUE  ANOMALY  OF  THE  CONIC 

PPC3)  0 UNIT  VECTOR  TOMARD  PERIAPSIS  ON  CONIC 

QQ( 3)  0 UNIT  VECTOR  NORMAL  TO  PP  IN  ORBITAL  PLANE 

MM( 3)  0 UNIT  VECTOR  NORMAL  TO  ORBITAL  PLANE 

SUBROUTINES  SUPPORTED!  TAROPT  LUNCON  HULTAR  EXCUTE  COPINS 

NONINS  CPROP  VHP  GUISIN  NONLIN 

PULSEX  GUIOM 


SUBROUTINES  REQUIRED! 
LOCAL  SYMBOLS!  AUXF 

AVA 

. CO SEA 

CTA 

C 

DtV 


NONE 

ECCENTRIC  ANOMALY  (HYPERBOLIC  CASE) 

MEAN  ANOMALY  (ELLIPTIC  CASE) 

COSINE  OF  THE  ECCENTRIC  ANOMALY  (ELLIPTIC 
CASE) 

COSINE  OF  THE  TRUE  ANOMALY 

MAGNITUDE  OF  THE  ANGULAR  MOMENTUM 

INTERMEDIATE  VARIABLE  IN  CALCULATION  OF 
ECCENTRIC  ANOMALY 


) + • 
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O&EL-A 


E A ECCENTRIC  ANOMALY  (ELLIPTIC  CASE) 

P SEMI-LATUS  RECTUM  OP  THE  CONIC 

RAO  DEGREES  TO  RAOIANS  CONVERSION  CONSTANT 

RO  TIME  DERIVATIVE  OF  RADIUS 

RM  MAGNITUDE  OF  CARTESIAN  POSITION  VECTOR 

SINEA  SINE  OF  THE  ECCENTRIC  ANOMALY  (ELLIPTIC 
CASE) 

SINHF  HYPERBOLIC  SINE  OF  AUXF 

STA  SINE  OF  THE  TRUE  ANOMALY 

TANG  INTERMEDIATE  VARIABLE  USEO  TO  CALCULATE 
SINHF 

VH  MAGNITUOE  OF  THE  CARTESIAN  VELOCITY  VECTOR 

2 INTERMEDIATE  VECTOR  USEO  TO  CALCULATE 

PPf  QQ  VECTORS 


V 


• L'$/‘ 


■ 

-M* 


CARZW 


CAREL  Analysis 

CARZL  converts  the  cartesian  state  (position  and  velocity)  of  a massless 
point  referenced  to  a gravitational  body  to  the  equivalent  conic  elements 
about  that  body. 

Let  the  cartesian  state  be  denoted  r*.  V and  let  the  gravitational  con- 
stant of  the  central  body  be  n . 

The  angular  momentum  constant  c is 


c ■ r x v 


The  unit  normal  U to  the  orbital  plane  is 


The  semilatus  rectum  p 1b 


P 


The  semi-major  axis  a is 


Thus  a >0  for  elliptical  motion,  a < 0 for  hyperbolic  motion.  The 
eccentricity  e is 


Thus  e < 1 for  elliptical  motion,  e > 1 for  hyperbolic  motion.  The 
inclination  of  the  orbit  . 1 is  computed  from 


cos  1 


The  longitude. of  the  ascending  node  Q Is  defined  by 


tan  0 • — & 

-0 

y 
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CAREL-2 


The  ttus  anomaly  f at  the  given  state  is  computed  f 


cos  f ■ 


e r 


sin  £ - SJL 

M* 


(8) 


■on  define  so  auxiliary  vector  $ by 

? . £ ? „ 1 ? 


(9) 


PS* 


Then  $ , the  unit  vector  to  per la pale,  and  Q , the  in- plane  normal 
to  $ , are  defined  by 

P ■ r cos  f - z sin  f 

Q - r sin  f ♦ r cos  f 


where  f ■ - . The  argument  of  periapsls  « is  then  computed  from 
r 


(10) 

(ID 


tan  w “ — 

$ 


(12) 


The  conic  time  from  periapsls  t is  computed  from  different  formulae 
depending  upon  the  sign  of  the  slmi-major  axis.  For  a >0  (elliptical 
motion) 


r 7 

t “V  ~1T~  (E  - e ain  E) 


cos  E - -e.  + ■cos-  i 
1 4-  e cos  f 


sin  E 


.£L 


e sin  f 


1 + e cos  f 

For  a C 0 (hyperbolic  motion)  the  time  from  periapsls  is 


e sinh  H - H) 


« -y/2\ 

n * li 


tanh  — » . * tan  — 

2 V e + 1 2 


(13) 


(14) 


-i; 


4: 


Reference:  Battln,  R.  H. , Astronautlcal  Guidance,  McGraw-Hill  Book  Co., 

.Sew  York,  1964. 
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CASCAD-A 


SUBROUTINE  CASCAO 

PURPOSE I TO  COMPUTE  THE  STATE  TRANSITION  MATRIX  DEFINING  STATE 
PERTURBATIONS  OVER  AN  ARBITRARY  TIME  INTERVAL  BY  CAS- 
CADING OANBY  HATRIZANTS  OVER  SEGMENTS  OF  THE  INTERVAL 
USING  EITHER  PATCHED  CONIC  OR  VIRTUAL  HASS  TKO  BOOT 
FORMULAE. 

CALLING  SEQUENCE!  CALL  CASCAOCRI,STHAT> 

ARGUMENT!  RI  I POSITION  ANO  VELOCITY  OP  VEHICLE  AT 

BEGINNING  OF  TIME  INTERVAL 

STNAT  0 STATE  TRANSITION  MATRIX  OVER  DESIRED 
INTERVAL 


SUBROUTINES  SUPPORTEQ ■ 
SUBROUTINES  REQUIRED! 
LOCAL  SYMBOLS!  OELTAT 

CELT 

01 

IFLAG 

IOS 

ISPS 

PHI 

PSI 

PTP 

AAV 

RHO 

AS 

RSF 


PSIH 

C0KC2  VHP 

TIME  INTERVAL  USED  IN  A SINGLE  ITERATE 

« 

TINE  INTERVAL  OF  CURRENT  PROPAGATION 

INITIAL  TIME  OF  ITERATE 

FLAG  TO  DETERMINE  HHETHER  ITERATION  IS 
COMPLETED 

FLAG  INDICATING  HELIOCENTRIC  OR 
PLANETOCENTRIC  PHASE 

FLAG  USEO  AS  TRAJECTORY  INTEGRATION 
SPHERE  OF  INFLUENCE  STOPPING  CODE 

CUMULATIVE  STATE  TRANSITION  MATRIX  OVER 
INTERVAL  < TO,  TK) 

CUMULATIVE  STATE  TRANSITION  MATRIX  OVER 
INTERVAL  ( TO,  TK*1> 

STATE  OF  TARGET  RELATIVE  TO  INERTIAL 
COORDINATE  AT  TINE  TK 

STATE  OF  SPACECRAFT  RELATIVE  TO  OOHINANT 
BODY  FOR  MATRIZANT 

STATE  TRANSITION  MATRIX  OVER  INTERVAL 
(TK,TK+l> 

INERTIAL  SPACECRAFT  ST  AXE  AT  TK 
INERTIAL  SPACECRAFT  STATE  AT  TK*1 
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L 


if- 


& 


CASCAD-B 


R1  SPACECRAFT  STATE  RELATIVE  TO  VIRTUAL  HASS 

AT  TK 

R2  SPACECRAFT  STATE  RELATIVE  TO  VIRTUAL  HASS 

AT  THAI 

SUN  INTERMEDIATE  VARIABLE 

TINE  CUMULATIVE  TRAJECTORY  TIME  FROM  INITIAL 

TIME  TO  TK*1 

XMU  VIRTUAL  NASS  MAGNITUDE  AT  TK 

YHU  VIRTUAL  HASS  MAGNITUDE  AT  TK+1 

COMMON  COMPUTED!  ICL 

COlOf ON  IISEQS  ACC  ALMGTM  OATEJ  OELTM  OTPLAM 

DTSUH  ISTNi  NTP  PHASS  RTP 

RVS  TH  TRTM1  VMU  V 


e 


o 
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CASCAD-1 


CASCAD  Analysis 


CAItCAD  tpprovlms  fa  the  aut«  transition  matrix  q defining  auta 
perturbation!  over  an  arbitrary  Interval  £tQ,  tfj  by  recuralvely 
computing  state  transition  matrices  over  Intervals  j tQ,  tjl  , j tQ,  t 1 

• [v  *J  • 

The  recursive  formula  for  the  k+1  Iteration  based  on  the  k»th  Iteration 
la  given  by 


W-l.o 


- 


k+l,k  k,o 


(1) 


1b  the  state  transition  natrlx  for  the  k+l-st  Interval 


The  time  Interval  ^S*l  " Vfl  ' Sc  it  determined  by  the  position  vector 
of  the  spacecraft  relative  to  the  target  planet  along  the  nominal  n-body 
trajectory  at  the  time  t^  . Then  If  denotes  the  radius  of  the  sphere 

of  Influence  of  the  target  planet  the  time  Interval  la  defined  by 


^Sc+1  " ^planet  1£  St~  Soi 


- 4t 


sun 


- At 


SOI 


il  b > "soi  *,u‘  '“Uxly 

trajectory  propagated  over  4tguQ  does 
not  Intersect  the  SOI. 

If  > Rjyjj  and  the  n-body  nominal 

trajectory  Intersects  the  SOI  after  the 

time  Interval  4t.__  where  At^^  At 

SOI  SOI  sun 


where  At  , _ and  At 

planet  sun 


are  input  parameters.  For  the  last  interval 


partial  step  may  be  required  so  that 


At  « t - t , 
n f n- 1 


The  # matrix  may  be  computed  by  either  of  two  models . In  the  patch 

conic  model  the  position  and  velocity  vectors  of  the  spacecraft* 

relative  to  the  dominant  body  (the  sun  if  At,.,  » At  or  At*..,,  the 

“*■  run  SOI 

target  planet  if  Atfcfl  - Atpl|mBt)  at  the  time  la  used  to  define  e 


Ck&UJbl 


conic  with  rupcct  to  the  dominant  body  and  the  Danby  aatriaant  over  the 
41ven  interval  define*  (C0KC2)  . 

In  the  virtual  mass  model  the  position  and  velocity  vectors  Vi  •" 

computed  relative  to  the  virtual  mass  and  the  gravitational  constant  used 
is  that  of  the  virtual  mass  magnitude  at  the  time  t^.  the  Danby  aatriaant 

corresponding  to  this  conic  then  is  used  to  compute  , . (C$NC2). 

k+1  ,k 


The  recursive  process  coi 
entire  interval  j t£ 


is  con 

*«] 


tlnues  until  the  state  transition  matrix  over  the 
ie  determined. 


Deference:  Danby,  JJI.A . , "The  Ketrizant  of  Keplerian  Motion ,"  AIAA 

Journal,  vol  2,  no  1,  January,  1964. 


I 

CENTER- A 


r 

SUBROUTINE  CENTER 

PURPOSE!  TO  CONVERT  THE  POSITION  AND  VELOCITY  VECTORS  OF  THE 
GRAVITATING  800IES  FROM  REFERENCE  BODY  ECLIPTIC  TO 
BARYCENTRXC  ECLIPTIC  AND  STORE  THEN  IN  THE  F ARRAY. 

CALLING  SEQUENCE!  CALL  CENTER 

SUBROUTINES  SUPPORTED!  EPMEH 

SUBROUTINES  REQUIRED!  NONE 


LOCAL  SYMBOLS  BARYC  POSITION  AND  VELOCITY  OF  CENTER  OF  HASS 

RELATIVE  TO  EARTH.  (AU,  AU/DAY! 

F ARRAY  OF  PL A MET  EPHEHERIS  DATA  IN  AU, 

AU/DAY  UNITS.  DATA  INDICATED  BY  THE 
FOLLOWING  INDICES 

4*1-2, J VELOCITY  OF  I-TH  PLANET  RELATIVE 
TO  THE  SUN  (INPUT)  AND  RELATIVE 
TO  THE  BARYCENTER  (OUTPUT) 
<**I-3,J  POSITION  OF  I-TH  PLANET  RELATIVE 
TO  THE  SUN  (INPUT)  AND  RELATIVE 
TO  THE  BARYCENTER  (OUTPUT) 
4*IH-2,J  VELOCITY  OF  MOON  RELATIVE  TO 
EARTH  (INPUT)  AND  RELATIVE  TO 
8ARYCENTER  OUTPUT 

4*IH-3,J  POSITION  OF  NOON  RELATIVE  TO 
EARTH  (INPUT)  AND  RELATIVE  TO 
BARYCENTER (OUTPUT) 

GEOP  POSITION  ANO  VELOCITY  OF  BODIES  RELATIVE 
TO  THE  EARTH.  CAU,  AU/OAY) 

IND  INDEX  USEO  TO  EXTRACT  EARTH  EPHEHERIS  DATA 

RELATIVE  TO  SUN  FRON  F-ARRAY 

IX  INDEX  OF  IJ-TH  GRAVITATIONAL  BODY 

SUN  SUH  OF  GRAVITATIONAL  CONSTANTS 

CAU* *3/0 AY ••21 

SUN  POSITION  ANO  VELOCITY  OF  SUH  RELATIVE  TO 
EARTH  (AU,  AU/OAY) 

COHHON  COMPUTED /USED I F INITAL  V 

COMMON  USED!  N BODY  I NO  PHASS  ZERO 
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1_ 


C&HU1  iulyili 


CEHTER-1 


L«C  the  iuta  vector  of  position  and  voloelty  of  tho  gravitating  bod  la  a 
(excluding  tho  soon)  in  heliocentric  ecliptic  coordinate!  be  denoted 
p^,  o*^  at  a ate  reference  time.  Let  the  index  of  the  earth  be  lg.  Then 

tho  coordinates  of  all  bodies  (excluding  the  moon)  relative  to  the  earth 

is 


" 0, 


\ " Wi  * Wi, 


i-l,n  , 1*1^ 

i-l,n  , i**!^ 


(1) 


Let  the  position  and  velocity  of  the  moon  relative  to  the  earth  be 
denoted  'r‘<  , v.  . 

Define  the  radius  vector  to  the  center  of  mass  (in  earth  ecliptic  coordin- 
ates) by 


SQ|’  T £ "l'l 
* 1-1 


M » 


- n 

Z «i 

i-1 


(2) 


Its  velocity  relative  to  the  earth  may  then  be  found  by  differentiation. 

n 

M 


vor  " T £ 

" l-i 


(3) 


The  coordinates  of  all  gravitating  bodies  relative  to  the  center  of  maaa 
may  then  be  confuted 


t - 


* - 1 


v - 'i' 

i CM 


(A) 
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C0SC2-A 


SUBROUTINE  C0NC2 

PURPOSE*  COMPUTE  STATE  TRANSITION  MATRIX  USING  ANALYTICAL 

PATCHED  COMIC  OR  ANALYTICAL  VIRTUAL  HASS  TECHNIQUES 

CALLING  SEQUENCE!  CALL  CONC2<R»Vt OELT,GHX,PSIEC> 


ARGUMENT • CELT  I 

GNX  I 

PSIEC  0 

R I 


TIKE  INCREMENT  OVER  HHICH  THE  STATE 
TRANSITION  MATRIX  IS  BEING  COHPUTEO 

GRAVITATIONAL  CONST  ANT  OF  GOVERNING  BODY 

STATE  TRANSITION  MATRIX 

POSITION  OF  THE  VEHICLE  RELATIVE  TO  THE 
GOVERNING  BOOT 

VELOCITY  OF  THE  VEHICLE  RELATIVE  TO  THE 
GOVERNING  BODY 


SUBROUTINES  SUPPORTED!  PSIH 


CASCAO  PCTH 


LOCAL  SYMBOLS!  A 

A1 

Ac 

AS 

A HE 

Cl 

CSE 

CTA 

CTAZ 

OOXO 

OOYO 

DXO 

OYO 

E 

EA 


semi-major  axis 

INTERMEDIATE  VARIABLE 

INTERMEDIATE  VARIABLE 

INTERMEDIATE  VARIABLE 

INTERMEDIATE  VARIABLE 

MAGNITUDE  OF  RXV 

COSINE  OF  ECCENTRIC  ANOMALY 

COSINE  GF  TRUE  ANOMALY 

COSINE  OF  TRUE  ANOMALY  ON  ELLIPSE 

INTERMEDIATE  VARIABLE 

INTERMEDIATE  VARIABLE 

INTEBtEOXATE  VARIABLE 

INTERMEDIATE  VARIABLE 

ECCENTRICITY 

ECCENTRIC  ANOMALY 


FHX1 

FKX 

F 

N 

OPEC 

ORB 

P 

PI 

PSIQP 

PV 

Q 

RO 

RM 

RR0 

RTMO 

R2 

R3 

SHE 

SHF 

STA 

STA2 

TIM1 

T IH2 

VH 

MV 

XO 

TO 


INTERMEDIATE  VECTOR 

INTERMEDIATE  VECTOR 

INTERMEDIATE  VARIABLE 

INTERMEDIATE  VARIABLE 

INTERMEDIATE  VECTOR 

INTERMEDIATE  VARIABLE 

SEMI-LATUS  RECTUM 

MATHEMATICAL  CONSTANT 

INTERMEDIATE  STATE  TRANSITION  MATRIX 

INTERMEDIATE  VECTOR 

INTERMEDIATE  VECTOR 

R 00T  V DIVIDED  BT  MAGNITUDE  OF  R 

MAGNITUDE  OF  R 

R DOT  V 

INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
SINE  OF  ECCENTRIC  ANOKALV 
Sltff  OF  F 

SINE  OF  TRUE  ANOMALY 

SINE  OF  TRUE  ANOMALY  ON  ELLIPSE 

INTERMEDIATE  TIME 

INTERMEDIATE  TIKE 

MAGNITUDE  OF  V 

RXV 

INTERMEDIATE  VARIABLE 
INTERJCDI  ATE  VARIABLE 


CGHC2-C 


Z XNTCmCOI  ATE  VECTOR 


com  cm  useoa  we  half  one  three 

THO  ZERO 


TMOPZ 


CCSC2-1 


C08C2  Analysis 


COSC 2 la  respeaslbl*  for  tha  computation  of  a state  transition  matrix 
about  a conic  trajectory  utlng  the  Danby  matriaant  analytic  formula. 

Danby  haa  shown  (aea  Reference  2)  that  the  state  transition  matrix  (or 
aatrlsant)  haa  a particularly  simple  form  If  vrltten  In  the  orbital  plane 
coordinate  system.  The  state  transition  matrix  $ defined  by 

a*f  - <t>  (tf»  tQ)  6Xo  (1) 


where  6x.t  6x  refer  to  perturbations  about  a conic  trajectory  at  time 
l o 

tj,  tQ  respectively  say  be  written  In  the  orbital  plane  system 


Q 

0(t 

f* 

'o> 

- M(tf)  M"1  <tQ) 

3 

where  Kf t) , 

M ^ (t)  may  be  computed  from 

the  following  formulae 

. M - 

• 

X 

YX-h 

0 

2X-3  rX 

YY 

cT 

Y 

-XX 

0 

2Y-3TY 

-YX-2h 

0 

0 

0 

Y 

0 

„ o 

-X 

X 

YX+YX 

0 

-k-3TX 

Y2  + y¥ 

0 

? 

-i2-xx 

0 

-Y-3T1? 

-tt-YX 

0 

.0 

0 

Y 

0 

0 

-ij 

>f 1 - ajhtjt 


where  X,Y,i,i,X,?  are  evaluated  at  the  time  t 
h la  the  angular  momentum  constant 

T la  the  time  Interval  from  t to  some  epoch,  (perlapsla) 


(2) 


> 


(3) 


(4) 


and  A - diag  ( a /ft,  x/fth,  1/h,  a/ ft,  a//ih,  1/h) 


(5) 

(6) 


Thus  to  use  the  Danby  formulation  one  must  determine  the  transformation 
from  the  reference  frame  to  the  orbital  plane  coordinates,  compute  the 
valuea  of  the  quantities  X,Y,fc,Y,2,V  and  h and  r at  the  times  to,  t 

and  then  use  the  above  equations. 

Let  the  initial  state  of  the  conic  be  denoted  Y*,  V,  the  gravitational 
force  ft  , and  the  time  Interval  £^t.  Then  the  unit  vectors  7 in  the 
direction  of  perlapsla,  ¥ In  the  direction  of  the  angular  momentum  vector, 
and  ?«V  i?  defining  the  orbital  plats  coordinate  system  may  be  computed 
by  the  following  conic  equations 


;l»  J (».**  * 

• Vf.-"  • 


1 / f*'  • 


r 


<#■*;■ 

SS 


COHC2-2 

h - 1 * x 1 

J 

17)  f 

fi  . 

1 

(8)  ’ 1 

i 

j 

r • 111 

V 

(9)  | 

h2 

p m iL- 
p » 

0 <• 

j 

(10)  : 

* ' r^v 

2 - rv  /n 

(ID 

e - Vl  - */* 

'(12) 

e 

cos  f ■ P-**  y sin  f ■ 

er  //e 

(13) 

r - xv-i? 

h h 

(14) 

? • cos  f — - sin  f s 
r 

(15) 

■ sin  f ^ + coa  f I*  t 

(16) 

| 

f - 

r2 

i 

(17) 

The  transformation  matrix  from  the  original  r,  v system  to  the 
plane  system  may  then  be  written 

orbital 

T • [ P ; Q i w 1 

(18) 

’ 1 * ! 

Let  the  true  anomaly  at  the  pertinent  time  (tQ  or  t^)  be  denoted 
Then  the  quantities  required  in  (3)  are  written 

f . 

X ■ r cos  f Y « r sin  f 

(19) 

i ■ t cos  f - rf  sin  f Y - r sin  f ♦ rf  cos  f 

i . -HI  j . .HI 

r3  r5 

Having  computed  th«  state  transition  matrix  $ corresponding  to  the 
orbital  plane  ays tea  by  equations  (2),  (3),  (4),  it  is  an  easy  task  to 
convert  it  to  the  normal  reference  syetea 

* • T^T1  (20) 
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f"- 'KETflH 


COHC2-3 


l 

r 

r 


i- 

r 


liftriMtii  Battln,  K.  H.,  Aatronauticel  Guidance , XcGrav-Htll  Book  Co. , 
lew  York,  1964. 

Deobjr,  J.M.A.,  Matr leant  ol  Kepler lan  Motion,  AXAA  J,,  vol.  3, 
no.  4,  April,  1963. 
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4 

1 

3 

i 


CC5C2-4 


CQSC2  flow  Chart 
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COHVRT-A 


SUBROUTINE  COMVRT 

PURPOSES  TO  OONPUTC  TNC  GEOCENTRIC  EQUATORIAL  COORO I HATES  OP  THE 
VEHICLE. 

CALLING  SEQUENCE!  CALL  CONVRT «R* PHI ,THETA,VEL*6AMIU,SX6HA,X* Y,Z, 

VX,VT,VZ) 


ARGUMENT!  GAMMA 

I 

PATH  ANGLE 

R 

I 

GEOCENTRIC  RADIUS 

PHI 

I 

DECLINATION 

THETA 

I 

RIGHT  ASCENSION 

- 

VEL 

I 

VELOCITY 

J 

tessj 

SIGMA 

l 

AZIMUTH 

X 

0 

X COMPONENT  OF  POSITION 

IN 

GEOCENTRIC 

i 

- 

EQUITORIAL  COORDINATES 

mv  | 

i 

Y 

0 

Y COMPONENT  OF  POSITION 
EQUITORIAL  COORDINATES 

IN 

GEOCENTRIC 

* 

Z 

0 

Z COMPONENT  OF  POSITION 
EQUITORIAL  COORDINATES 

IN 

GEOCENTRIC 

* 

vx 

0 

X COHPONf NT  OF  VELOCITY 
EQUITORIAL  COORDINATES 

IN 

GEOCENTRIC 

VY 

0 

Y COMPONENT  OF  VELOCITY 
EQUITORIAL  COORDINATES 

IN 

GEOCENTRIC 

i 

VZ 

0 

Z COMPONENT  OF  VELOCITY 
EQUITORIAL  COORDINATES 

IN 

GEOCENTRIC 

l 

SUBROUTINES  SUPPORTED! 

DATA  DATAS 

1 

LOCAL  SYMBOLS!  B1 

Intermediate  variable 

i 

i 

az 

INTERMEDIATE  VARIABLE 

' 

[ 

B3 

INTERMEDIATE  VARIABLE 

■1 

i 

CG 

COSINE  OF  PATH  ANGLE 

| 

CP 

COSINE  OF  QECLXNATION 

\ 

j 

CT 

COSINE  Of  RIGHT  ASCENSION 

i 

4 

SG 

SINE  OF  PATH  ANGLE 

V 
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COHVKT-B 


SP  SINE  OP  DECLINATION 

ST  SINE  OP  MONT  ASCENSION 
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COUVRT-l 


CCKVKT  Analysis 


Geocentric  equatorial  position  and  velocity  components  are  related  to  geo- 
centric radius,  declination,  right  ascension,  velocity  magnitude , flight 
path  angle,  and  arlauth  through  the  following  equations: 

x • r cos  0 cos  0 

y ■ r cos  0 sin  9 

r - r sin  0 

i * v (sin  T cos  0 cos  9 - cos  T sin  <y  sin  9 - cos  T 
com  a sin  0 cos  9) 

y “ v (sin  T cos  0 sin  9 + cos  T sin  <r  cos  9 - cos  T 
cos  o sin  0 sin  9) 

z «■  v (sin  T sin  0 + cos  T cos  o cos  0) 


The  definitions  of  pertinent  quantities  are  apparent  in  the  following 
figure. 


I 


V 


COPIKS-A 


SUBROUTINE 
PURPOSE I 


J » 

1 

t 


1 

i 

¥ 


COPINS 

TO  DETERMINE  THE  IMPULSIVE  CORRECTION  AND  TIME  RCQUIREO 
TO  INSERT  FROM  AN  APPROACH  HYPERBOLA  INTO  A CO PLANAR 
ELX.PT  I CAL  ORBIT* 


CAL  LI  NO  SEQUENCE!  CALL  COPIW(GH,R*  V*QA,DEtDELN»TEXtOELVf  IEX) 


ARGUMENTS! 


GM 

RC3) 

f (3) 

OE 

OE 

OELM 

TEX 


X 

I 

I 

I 

I 

I 

0 


0ELVC3)  0 
IEX  0 

SUBROUTINES  SUPPORTED! 
SUBROUTINES  RCQUIREOI 
LOCAL  SYMBOLS!  AA 

AN 

ARC 

A1 

» 

A2 

A 

BB 

B 

CC 


gravitational  constant 

POSITION  VECTOR  AT  DECISION 

VELOCITY  VECTOR  AT  DECISION 

OESIKD  SEMI  MAJOR  AXIS 

QESIRED  ECCENTRICITY 

DESIRED  PERIAPSIS  SHIFT 

TIME  FROM  OECISION  TO  EXECUTION  (SECONDS) 

INSERTION  VELOCITY  CORRECTION 

EXECUTION  COOE 

*0  EVENT  IS  EXECUTABLE 

•1  NO  EXECUTABLE  SOLUTION  FOUND 

INSCRS 

CAREL  ELCAR 

COEFFICIENT  DEFINING  TANGENTIAL  SOLUTION 
FOR  A 

HYPERBOLIC  SEHIHAJOR  AXIS 
THE  CONSTANT  180 

CANIOATE  SOLUTION  FOR  SEHIHAJOR  AXIS 

, » 

CANIOATE  SOLUTION  FOR  SEBIHAJOR  AXIS 

TARGET  SEHIHAJOR  AXIS  • 

COEFFICIENT  DEFINING  TANGENTIAL  SO*  ''ION 
FOR  A 

TANGENTIAL  SOLUTION  CONSTANT 

» 

COEFFICIENT  DEFINING  TANGENTIAL  SOLUTION 
FOR  A 
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COP IKS- B 


COE 

C0STH 

COSN 

C 

DEL  VN 

OISC 

DISK 

DR  A 
DRP 
DVH 

DV 

0 

EH 

ERRHAX 

ERR 

ER 

ETA 

E 

HI 
HN 
HRP 
HR 
I OPT 

I SOL 


i/E 

COS (THETA) 

COSCH) 

TANGENTIAL  SOLUTION  CONSTANT 

MAGNITUDE  OF  FINAL  CORRECTION 

DISCRIMINANT  OF  SOLUTION  FOR  THETA 

DISCRIMINANT  OF  TANGENTIAL  SOLUTION 
FOR  A 

DESIRED  APOAPSIS  RADIUS 

DtslREO  PERI APSIS  RAOIUS 

MAGNITUDE  OF  VELOCITY  CORRECTION  FOR 
CANT'JOATE  SOLUTION 

VfcLiKI.f  CORRECTION  OF  C ANDI QATE  SOLUTION 

TANGENTIAL  SOLUTION  CONSTANT 

HYPENBOL). 0 ECCENTRICITY 

SCALAR  ERROR  ASSOCIATED  WITH  IMPOSSIBLE 
SOLUTION 

SCALAR  ERRORS  OF  CANDIDATE  SOLUTIONS 

RADIUS  UN  ELLIPSE  AT  INSERTION 

TRUE  ANOMALY  ON  ELL  IP St  AT  INSERTION 

ECCENTR>  CITY  OF  ELLIPSE 

INCLINATION  OF  HYPERBOLA 

ASCENDING  NOOE  OF  HYPERBOLA 

HYPf RQOL 10  PERIAPSIS  RADIUS 

RADIUS  OF  HYPERBOLA  AT  INSERTION 

T^PF  OF  SOLUTION 
-1  ORBITS  INTERSECT 

*1  MUST  MODIFY  ORBIT  TO  OBTAIN  SOLUTION 
INDEX  OF  SOLUTION 
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MIN 

NSOLS 

PM 

PI 

PP 

P 

QQ 

RAO 

RA 

RO 

RENG 

RE 

RM 

RNAG 

RP 

SGN 

SINN 

STA 

STGN 

S 

TFPE 

TFPH 

THA 

TIMDX 

TIMO 


INOEX  OF  MINIMUM  LOSS  FUNCTION  SOLUTION 

NUMBER  OF  SOLUTIONS 

HYPERBOLIC  SENILATUS  RECTUM 

THE  MATHEMATICAL  CONSTANT  PI 

UNIT  VECTOR  TOMARD  PERZAPSIS 

ELLIPTICAL  SENILATUS  RECTUM 

UNIT  VECTOR  IN  ORBIT  PLANE  NORMAL  TO  PP 

QEGREE  TO  RAOIAN  TRANSFORMATION 

APOAPSIS  RAOIUS 

RADIUS  TO  DECISION  STATE 

MAGNITUDE  OF  RAOIUS  ON  ELLIPSE  AFTER 
INSERTION 

POSITION  VECTOR  ON  ELLIPSE  AFTER 
INSERTION 

POSITION  ON  HYPERBOLA  BEFORE  INSERTION 

MAGNITUDE  OF  RAOIUS  ON  HYPERBOLA  BEFORE 
INSERTION 

PERIAPSIS  RAOIUS 

PARAMETER  IN  TANGENTIAL  SOLUTION 
SIMM) 

TRUE  ANOMALY  ON  HYPERBOLA  AT  DECISION 
POSITIVE  OR  NEGATIVE  SIGN  IN  QUADRATIC 
IMTERMEDI ATE  VARIABLE 
TIME  FROM  PERIAPSIS  ON  ELLIPSE 
HYPERBOLIC  TIME  FROM  PERIAPSIS  AT  INSERT 
TRUE  ANOMALY  OF  INSERTION  ON  HYPERBOLA 
TIME  FROM  DECISION  TO  EXECUTION 
TItS  FROM  PERIAPSIS  AT  DECISION 


COPINS- C 


VO  SPL'iO  ‘ <■  oeCISTON 

VEHC  SPEU1  ON  ELLIPSE  AFTER  INSERTION 

Vt  VCLOCnv  VECTOR  ON  ELLIPSE  AFTER  INSERTION 

VH  • croR  r>u  HVPEX9L0A  BEFORE 

* ' - * • « 

vr  v>  '<>' • . <Jtf.  OEFUPE  INSERTION 

HI,  ■ '.'*-.hhLNs  OF  PERIAPSIS 

)U'  >'J>£ 

' • • ‘ 1>  - ‘ ! < J-SL 


" w ' ' t <■  * N I H G HYPERBOLIC 

■v  ,n<’  i'i 

<••!  1 N 1 NO  HYPERBOLIC 

Jnn 
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tiYPERBOL  1C 
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COPIES- 1 


COPIES  Analysis : 

COPIES  determines  tha  impulsive  correction  and  tim*  required  to  iaaert 
from  an  approach  hyperbola  Into  a coplanar  elliptical  orbit.  The  approach 
hyperbola  la  apeclfled  by  a plane tocentric  state  ~r , v*  at  a decision  time 

t..  The  desired  elliptical  orbit  la  prescribed  by  Input  parameters  a,  a, 
o 

AiO  where  a and  a are  the  seal-major  axis  and  eccentricity  of  the 

desired  ellipse  and  AiO  la  the  angle  (measured  counter  clockwise)  from 

the  hyperbolic  perlapsla  to  the  perlapsls  of  the  desired  orbit.  The 
situation  la  illustrated  In  Figure  1. 


" I 


Figure  1.  Approach  Hyperbola  and  Desired  Orbit 

The  plane  tocentric  ecliptic  state  'r,  "v  at  the  time  of  decision  is 

first  converted  to  Keplerlan  elements  (a^,  #H,  iH,  t^)  via  sub- 

routine CASXL  where  t^  is  the  time  from  perlapsls  (negative  on  the  approach 
ray).  The  angle  f—  between  the  hyperbolic  perlapsls  and  the  approach 

A 

asymptote  S Is  computed  from 

co»  - - 0 < 90°  (1) 

ft 

Thus  the  angle  u>  between  the  hyperbolic  perlapsls  and  the  desired  elliptical 
perlapsls  li  given  by 

U>  - AtJ  (2) 


The  hyperbola  and  ellipse  may  therefore  be  described  in  the  PQ  plane  by 
standard  conic  formula,  specifically. 
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COPIES- 2 


1 + CO80 


1 + e coa(0  - (*>) 

A 


where  0 la  measured  counter-clockwise  from  P and  p , p arc  the  seal- 

a £ 

l«tu«  rectum  of  the  hyperbole  and  clllpac  respectively.  Obviously  If  an 
angle  of  Intersection  0*  la  known , the  atatea  on  both  conlca  ( r*  *,  v*  *) 

u 

and  ( r , v^  ) may  be  computed  from  conic  formulae  and  the  desired  Impul- 
sive correction  is  given  by 

5v  - t*  - v^*  (4) 

Likewise  the  tine  from  per laps  is  to  the  intersection  point  t*  may  be 
computed  using  hyperbolic  formula  and  therefore  the  time  from  decision  to 
execution  is  given  by 

At  - t*  - td  (5) 

Thus  the  coplanar  insertion  problem  reduces  to  the  determination  of  the 
optimal  angle  0*  for  the  impulsive  maneuver. 

From  (3)  tha  values  of  0 for  which  r r are  given  by 

H E 


cos  0 ” 


where 


PH  - PE 


y " PH  *E  COBW-  PE  *1 


a * Pu 

J 2 2 

D - y*  + r - xZ 


If  the  discriminant  D 5s  0 there  are  at  most  two  real  non-extraneous 
solutions  Bucb  that  r2(0)  “ rH(0).  Bote  that  the  angle  0 may 

not  lie  in  tha  region  inside  the  approach  and  departure  asymptotes.  If 
there  are  two  solutions,  both  £v  's  are  computed  by  (4)  and  the  minimum 
Av  transfer  la  selected. 


9 


C0PIK-3 


If  D < 0 , the  applied  hyperbola  and  the  desired  orbit  do  not  intersect  and 
there  la  no  Impulsive  transfer  between  the  two  conics.  In  such  a case  the 


desired  elements 


and  ev  are  modified  to  determine  the  "beet"  tangen- 


tial solution  possible.  Three  different  modifications  are  tested; 


(1)  Vary  r^  while 

(2)  Vary  rp  while 

(3)  Vary  a^  while 

The  three  modification  schemes 
nonintersecting  orbit  is  shown 


holding  r^  at  the  desired  value, 
holding  ra  at  the  desired  value, 
holding  eg  at  the  desired  value. 

are  illustrated  in  Figure  2 where  the  original 
by  the  broken  lines. 


a.  Modify  r 

a 


b.  Modify  r^ 


c . Mi  Orly  a 


Figure  2.  Candidate  Orbit  Modifications 


It  is  desired  to  modify  the  "a"  and  the  "eM  of  the  desired  orbit  t->  achieve 
the  tangential  configurations.  From  (6)  it  is  obvious  that  a nec*tsary 
condition  for  a tangential  solution  is  given  by  ]>*0.  Using  (7)  D may  be 
VTltten 

D - Py  - 1)  + Pj  b + 2pHPE  - cp2.E 

where  b ■ e^  - 1 

H 

c - 2pHeg  coa  u (8) 


where  it  is  observed  the  approach  hyperbola  is  fixed  and  it  is  d er‘r»d  not 
to  vary  the  u of  the  desired  ellipse  so  that  subsequent  apsidsl  rotations 
are  avoided. 
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COP IKS- 4 


ki  lew riting  (8a)  in  terms  of  « end  rp  Leeds  to 


a2!)  ■ (4  t?  k + * t jy  ■ 2 r c) 

P p n p 


+ (-2  p2  r • 4 r3  b ■ 2 ? r2  + 3 r2  b)« 

H p p H p p 

+ (pj  rZ  4 rS  * c r3  ) <9) 

p p P 

How  If  D la  aet  equal  to  0,  r held  at  lta  desired  value,  and  the  resulting 

P 

quadratic  solved  for  *’an,  the  solution  will  correspond  to  the  tangential 
solution  which  holds  r^  constant.  If  a^O  or  imaginary,  the  solution 

is  disregarded.  The  modified  eccentricity  1b  of  course  defined  by 


- 1 - _E 


Modification  Option  2:  Rewriting  (8a)  in  terms  of  a and  r^  leads  to 


a?D  (4  rZ  b + 4 r jl,  + 2 r c)a' 

ft  ft  n ft 


+ (-2  pj  r - * *1  b - 2 pH  r2  - 3 r\  c)a 

2 2 4 3 

+ ^r;  + r;b+cr  l ) 


For  computations  1 purposes  the  similarity  between  (9)  and  (11)  may  be 
exploited.  Again  setting  D ■*  0 and  holding  rfl  at  its  desired  value, 

the  value  of  Ha"  may  be  determined  which  specifies  the  tangential  solution 
holding  rft  constant,  . Having  determined  a realistic  value  of  Ha",  the 

corresponding  eccentricity  is  given  by 


e - ~ - 1 

8 


Modification  Option  3:  R*writin~  (8a)  in  terms  of  a and  e leadB  to 

S 

D - (d2b)a2  + (2pyd  - cd  e^Ja  - dp^ 

d - (1  - e2  ) (13) 

Setting  D * 0 and  solving  for  Han  while  holding  e^  at  its  desired  value 
then  defines  the  option  3 solution. 


AMI 


J 


__  t 


COPINS- 5 


io  determine  the  “best”  modified  orbit  from  the  three  candidate  options 
o ruther  svbitrary  scheme  is  used.  A scalar  error  is  assigned  to  each 
op.i oi.  ttCfurding  to  a weighting  factor  and  the  difference  between  the 
desire':  and  achieved  values  of  the  periapels  and  apoapsls  radii: 


Wi  < 


Or.  + 


) 


tr.<  . efilar  factor  W is  set  to  1,2,3  respectively  for  the  three 


inis  the  preferred  strategy  is  the  one  which  requires  a correction 
oapsis  while  the  least  desired  scheme  requires  subsequent  corrections 
'.apsis  and  epoapsls. 


.mined  orbital  elements  that  necessarily  lead  to  a tangential 
(o)  may  now  be  used  to  compute  the  angle  of  intersection  6 . 
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COFISS-6 


COP IKS  Flow  Chart 


ENTER 


Set  Nominal  value#  of  flags]  IRX-IOPT^O , NS0L5- 1 


Compute  elements  of  hyperbola  at  time  of  decision 
(CAREL)  and  record. 


Compute  coefficients  X,Y,Z  of  quadratic  equation 
defining  cos  8 (eqns  6,7)  and  discriminant  DISC 


DISC-?'] 


Prepare  for  tangential  solution  modifications  by 
setting  IOPT  - 1,  NSOLS  - 3,  and  compute  constants 
B,C,D  for  tangential  solutions  (eqn  8) 


ISOL  - ISOL  + 1 


ISO? 


Modify  Tp  solution. 
Set  s - ra,  1 - -1 


iModify  r solution. 


Set  s - Tp,  1 - +1 


Compute  coefficients,  AA,  BB, 
CC  of  quadratic  in  "a” 
defining  tangential  eolution. 


ISO?. 


Modify  "a"  solution.  Compute 
coefficients  A/.,  BB,  CC  of 
quadratic  in  "a". 


Compute  discriminant  DISK  of  quadratic 
defining  "a"  of  tangential  solution. 
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COPINS- 8 


i 


i 

i 

A 


[ 
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COBREL-A 


SUBROUTINE  COJWEL 

i 

PURPOSE I CONVERT  COVARIANCE  MATRIX  PARTITIONS  TO  CORRELATION 
MATRIX  PARTITIONS  ANO  STANDARD  DEVIATIONS  AND  WRITE 
TMEH  OUT 

CALLING  SEQUENCE!  CALL  CORREL(PP,CXXSP,PSP*CXUP,UO,CXVP,VO,CXSUP. 

CXSVP) 


ARGUMENT! 

» 

PP 

I 

POSIT ION/ VELOCITY  COVARIANCE  MATRIX 

CXXSP 

X 

CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
ANO  POSITION/VELOCITY  STATE 

PSP 

I 

SQLVE-f  OR  PARAMETER  COVARIANCE  MATRIX 

f 1 

CXUP 

I 

correlation  betmee::  position/velocity  state 
ANO  OYNANIC  CONSIDER  PARAMETERS 

uo 

I 

DYNAMIC  CONSIDER  PARAMETER  COVARIANCE 
MATRIX 

> 

* 

i 

*• 

CXVP 

I 

CORRELATION  BETWEEN  POSITION/VELOCITY  STATE 
AND  MEASUREMENT  CONSIDER  PARAMETERS 

1 

r 

VO 

I 

MEASUREMENT  CONSIDER  PARAMETER  COVARIANCE 
MATRIX 

CXSUP 

I 

CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
ANO  DYNAMIC  CONSIOER  PARAMETERS 

: 

CXSVP 

I 

CORRELATION  BETWEEN  SOLVE-FOR  PARAMETERS 
ANO  MEASUREMENT  CONSIOER  PARAMETERS 

SUBROUTINES  SUPPORTED*  PRINT 4 SETEVS  GUISIH  PRESIH  PRNTSL 

PRINTS  SETEVN  GUIDH  PRED  PRNTS3 


LOCAL  SYMBOLS!  DUN  INVERSE  OF  SQUARE  ROOT  OF  DIAGONAL 

ELEMENTS  IN  DYNAMIC  ANO  MEASUREMENT 
CONSIDER  COVARIANCE  PARTITIONS 


i 


i 

V. 

} 

r 

& 

* 


l 

l. 


I END  COUNTER  INDICATING  TOTAL  NUMBER  OF 

AUGMENTED  STATE  VARIABLES 

ROM  INTERHEOWTE  COMPUTATION  AND  OUTPUT  VECTOR 

SAP  INVERSE  OF  THE  SQUARE  ROOT  OF  01  AGONAL 
ELEMENTS  IN  VEHICLE  AND  SOLVE-FOR 
COVARIANCE  PARTITIONS 

ZZ  STANDARD  DEVIATION 


COMMON  USED! 


KPRINT  N0IN1  NQXN2  NDIN3  ONE 
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DATA-A 


SUBROUTINE  OAT  A 

PURPOSES  TO  READ  INPUT  OATA,  TRANSLATE  THIS  OATA  INTO  PROPER 

INTERNAL  VALUES,  ASSIGN  VALUES  TO  UNSPECIFIED  NAMELIST 
VARIABLES,  SET  NECESSARY  INITIAL  VALUES,  CONFUTE 
OINENSIONS  OF  STATE  TRANSITION,  OBSERVATION,  AND 
CO/ARIANCE  HATRIX  PARTITIONS,  ORDER  NEASURNENT  AND  EVENT 
SCHEDULES,  ANO  PRINT  OUT  INITIAL  CONDITIONS  IN  THE  ERRAN 
PROGRAM. 


CALLING  SEQUENCES  CALL  OATA 
ARGUMENTS  NONE 
SUBROUTINES  SUPPORTED I ERRON 


SUBROUTINES  REQUIRED  I 

# 

' ! 

LOCAL  SYMBOLS » AI 


* 

; 

AMIN 

i 

£ 

! 

| 

ANODE 

A 

> 

DUM1 

i > 

j 

: 

DUM 

0 

DATE 

EARTH 

1 f 
\ 

E 

* 

FNOT 

i 

* > 

K 

»■ 

GAMMA 

GN 

l 

ICNT 

1 

i: 

. cu 

IOAY 

t 


CONVRT  EPHEN  GHA  CRB  PECEQ 

TINE  TRANS  XYZRV 

INCLINATION 

INTERMEDIATE  VARIABLE 

LONGITUDE  OF  ASCENDING  NODE 

SEHIHAJOR  AXIS 

INTERHEOI ATE  STOR  ARRAY 

INTERMEDIATE  STORAGE  ARRAY 

INTERMEDIATE  JULIAN  QATE 

ARRAT  CONTAINING  FINAL  JULIAN  DATE 

CALENDAR  OATE  AT  WHICH  EARTHS  ORBITAL 
ELEMENTS  WILL  BE  CALCULATED 

ECCENTRICITY 

OATE  OF  FINAL  TIME 

PATH  ANGLE 

GRAVITATIONAL  CONSTANT  OF  CENTRAL  BODY 
COUNTER 

CALENDAR  OAY  OF  FINAL  TIME 


1 


i 

1 
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I HR  CALENDAR  HOUR  OF  FINAL  TIHE 

XHXN  CALENDAR  MINUTES  OF  FINAL  TINE 

XNO  CALENDAR  HONTH  OF  FINAL  TIKE 

XYR  CALENDAR  YEAR  OF  FINAL  TIHE 

JUPITER  CALENDAR  OATE  AT  MHXCH  ORBITAL  ELEMENTS  OF 

JUPITER  MILL  BE  CALCULATED 

LOAY  CALENDAR  DAY  OF  INITIAL  TIHE 

LHR  CALENDAR  HOURS  OF  INITIAL  TIHE 

LHIN  CALENDAR  HINUTES  OF  INITIAL  TIKE 

LHO  CALENDAR  MONTH  OF  INITIAL  TIME 

LYR  CALENDAR  YEAR  OF  INITIAL  TIHE 

HARS  CALENDAR  OATE  AT  MHICH  ORBITAL  ELEMENTS  OF 

MARS  MILL  BE  CALCULATED 

MERCURY  CALENDAR  DATE  AT  MHICH  ORBITAL  ELEMENTS  OF 
MERCURY  MILL  BE  CALCULATED 

MOON  CALENDAR  DATE  AT  MHICH  ORBITAL  ELEMENTS  OF 
EARTHS  MOON  MILL  BE  CALCULATED 

NENT  NUMBER  OF  ENTRIES  IN  MEASUREMENT  SCHEDULE 

NEPTUNE  CALENOAR  OATE  AT  MHICH  ORBITAL  ELEMENTS  OF 
NEPTUNE  MILL  BE  CALCULATED 

ONE  ARGUMENT  OF  PERIAPSIS 

PHIT  DECLINATION 

PLUTO  CALENDAR  OATE  AT  MHICH  ORBITAL  ELEMENTS  OF 

PLUTO  MILL  BE  CALUCLATED 

PRD  INITIAL  SEMI-LATUS  RECTUh  OF  SPACECRAFT 

ORBIT 

RDS  GEOCENTRIC  RADIUS  OF  VEHICLE 

RD  MAGNITUDE  OF  POSITION  VECTOR 

SATURN  CALENDAR  OATE  AT  MHICH  ORBITAL  ELEMENTS  OF 

SATURN  MILL  BE  CALCULATED 

SEC  INTERMEDIATE  CALENOAR  SECONDS 


DATA-C 


SECX  calendar  seconds  at  final  time 

SECL  calendar  seconds  at  initial  time 

SIGMA  AZIMUTH 

TA  TRUE  ANOMALY  OF  INSTANTANEOUS  POSITION  AND 

VELOCITY 

THETA  RIGHT  ASCENSION 

URANUS  CALENOAR  OATE  AT  WHICH  ORBITAL  ELEMENTS  OF 
URANUS  HILL  BE  CALCULATED 

VEL  INJECTION  VELOCITY  RELATIVE  TO  EARTH 


VENUS  CALENDAR  OATE  AT  WHICH  ORBITAL  ELEMENTS  OF 
VENUS  MILL  BE  CALCULATED 

VL  MAGNITUDE  OF  VELOCITY  VECTOR 

VUNIT  INTERMEDIATE  VELOCITY  CONVERSION  FACTOR 


COMMON  COHPUTEO/USEDt  ACCND 

CXU 

OELICL 

OELTP 

EH1 

EH8 

FNTM 

IC0Q3 

• IE  IG 

INPR 

ISTMC 

NO  ACC 

NEV11 

NEV5 

NHN 

PS 

SIGBET 

SSS 

TWO 

VO 

COMMON  COHPUTEOt  . BORSI1 

BDTSI3 

CXSUG 

CXV8, 

EH13 

HALF 

ICA2 


ACC 

ALNGTH 

cxsu 

cxsv 

CXV 

CXXS 

QELAXS 

DELECC 

DELMA 

DELMUP 

OELHUS 

DELNOO 

DELH 

DTMAX 

DTPLAN 

DTSUN 

EM4 

EM5 

cH6 

EM7 

EPS 

EP50 

FACP 

FACV 

FOP 

FOV 

IAUGIN 

IBARY 

ICDT3 

ICOORD 

ICOOR 

IDNF 

IE.  HEM 

IEVNT 

IHYP1 

IMNF 

I0PT7 

IPRINT 

IPRT 

ISP2 

ISTH1 

XPRINT 

MNCN 

NBOD 

NDIM1 

N0IM2 

NDIM3 

NEV10 

NEV1 

NEV2 

NEV3 

NEVA 

NEV6 

NEV7 

NEV9 

NEV 

NO 

NST 

NTMC 

ONE 

P 

RAO 

SAL 

SIGALP 

SIGPRO 

SIGRES 

SLAT 

SLON 

TEV 

TNN 

TM 

TRTM1 

T 

UST 

UO 

VST 

HST 

XI 

XP 

ZERO 

8CRSI2 

BDRSI3 

* 

8DTSI1 

BDTSI2 

BSI1 

BSI2 

BSI3 

CXSUB 

CXSVB 

CXSVG 

CXUB 

CXUG 

CXVG 

CXXSB 

CXXSG 

DELTM 

EH2 

EH3 

EN9 

EM 

IAUGDC 

IAUGHC 

I AUG 

ICA1 

ICA3 

ICL2 

ICL 

XIPOL 

i 


COMMON  USED I 


INCUT 

INITAL 

IPOL 

IS0X1 

IS0I2 

IS0I3 

ISPH 

ITR 

hcntr 

MCOOE 

MAE 

nbooyx 

NEVA 

NGE 

NPE 

NQE 

ONEGA 

PB 

PG 

PSB 

PSG 

RCA1 

RCA2 

RCA3 

RSOI1 

RSOI2 

RSOI3 

TCA1 

TCA2 

TC  A3 

T6 

THREE 

TIMINT 

TRTHB 

TSOIi 

TSOI2 

TS0I3 

TWOPI 

VSOI1 

VS0I2 

VS  013 

XB 

XF 

XG 

XSL 

XU 

XV 

AINC7 

AN00E7 

OATEJ 

ONCN 

£CC7 

ELHNT 

EVNH 

F 

6 

HP7 

IPROB 

NNNANE 

NB 

NLP 

NTP 

PERP7 

PI 

planet 

PHASS 

P7 

TAUT 

TPT2 

XL  AB 

XNH 

’jATAS-A 


■4 


PROGRAM  OAT AS 

I 

i PURPOSE!  TO  READ  INPUT  OA1A,  TRANSLATE  THIS  DATA  INTO  PRQ!>fck 

j INTERNAL  VALUES,  ASSIGN  VALUES  TO  UNSPECIFIED  N Vff LIST 

VARIABLES,  SET  NECESSARY  INITIAL  VALUES,  COMPUTE 
DIMENSIONS  OF  STATE  TRANSITION,  OBSERVATION,  AND 
COVARIANCE  MATRIX  PARTITIONS,  ORDER  MEASURMENT  AND  EVENT 
SCHEDULES,  ANO  PRINT  OUT  INITIAL  CONDITIONS  IN  THE  SIMUL 
PROGRAM. 

CALLING  SEQUENCE*  CALL  DAT»S 

i 

SUBROUTINES  SUPPORTED!  MAIN 


'■  ) 
— i 


I 


* 


SUBROUTINES  REQUIRED! 

LOCAL  SYMBOLS  AI 

ANODE 

A 

DATE 

DUM1 

OUN 

0 

EARTH 

E 

FNOT 

GAMMA 

GM 

IOAY 

IHR 

ININ 

I MO 


CONVRT  DAT  A IS  ELCAR  EPHEM  ORB 

PECEQ  TIME  TRANS 

INITIAL  INCLINATION  OF  SPACECRAFT  ORBIT 

INITIAL  LONGITUDE  OF  ASCENDING  NODE  OF 
SPACECRAFT  ORBIT 

INITIAL  SEMI-MAJOR  AXIS  OF  SPACECRAFT 
ORBIT 

ARRAY  CONTAINING  FINAL  JULIAN  DATE 

PLANETO-CENTR-C  ECLIPTIC  SPACECRAFT  STATE 

COORDINATE  TRANSFORMATION  FROM  PLANETO- 
CENTRIC  EQUATORIAL  TO  PL ANETO— CENTRIC 
ECLIPTIC  COORDINATES 

JULIAN  OATE  AT  LAUNCH 

CALENDAR  OATE  AT  MHICH  ORBITAL  ELEHENTS  OF 
EARTH  MILL  BE  CALCULATED 

INITIAL  ECCENTRICITY  OF  SPACECRAFT  ORBIT 

FINAL  JULIAN  OATE 

INJECTION  PATH  ANGLE 

GRAVITATIONAL  CONSTANT  OF  TARGET  PLANET 
OAY  OF  FINAL  COMPUTATION 
HOUR  OF  FINAL  COMPUTATION 
NINUTE  OF  FINAL  COMPUTATION 

* 

MONTH  OF  FINAL  COMPUTATION 
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DATAS-B 


ZYR  YEAR  OF  FINAL  COMPUTATION  , 

JUPITER  CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS  OF 
JUPITER  MILL  BE  CALCULATED 

LOAY  LAUNCH  DAY 

LHR  LAUNCH  HOUR 

LNIN  LAUNCH  MINUTE 

LMO  LAUNCH  MONTH 

LYR  LAUNCH  YEAR 

MARS  CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS  OF 
MARS  MILL  BE  CALCULATED 

MERCURY  CALENOAR  DATE  AT  WHICH  ORBITAL  ELEMENTS  OF 
MERCURY  MILL  BE  CALCULATED 

MOON  CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS  OF 
NOON  MILL  BE  CALCULATED 

NENT  NUHBR  OF  ENTRIES  IN  MEASUREMENT  SCHEDULE 

NEPTUNE  CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMETMS  OF 
NEPTUNE  MILL  BE  CALCULATED 

ONE  INITIAL  ARGUMENT  OF  PERIAPSIS  OF  SPACE- 
CRAFT ORBIT 

PHXT  INJECTION  DECLINATION 

PLUTO  CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS  OF 
PLUTO  MILL  BE  CALCULATED 

PRO  INITIAL  SEMI-L ATUS  RECTUM  OF  SPACECRAFT 

ORBIT 

RDS  EARTH-CENTERED  INJECTION  RADIUS 

RD  OUMMY  VARIABLE 

SATURN  CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS  OF 
SATURN  MILL  BE  CALCULATED 

SECI  SECOND  OF  FINAL  COMPUTATION 

SECL  LAUNCH  SECOND 

SEC  SECOND  OF  CALENDAR  OATE  AT  WHICH  ORBITAL 


DATAS-C 


ELEMENTS  OF  A PLACET  HILL  BE  CALCULATED 
SIGMA  INJECTION  AZIMUTH 

TA  INITIAL  SPACECRAFT  TRUE  ANOMALY 

THETA  INJECTION  RIGHT  ASCENSION 

URANUS  CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS  OF 
URANUS  WILL  BE  CALCULATED 

VEL  INJECTION  VELOCITY  RELATIVE  TO  EARTH 

VENUS  CALENDAR  DATE  AT  WHICH  ORBITAL  ELEMENTS  OF 
VENUS  WILL  BE  CALCULATED  * 


VL  OUMMY  VARIABLE 


> 


VUNIT  VELOCITY  CONVERSION  FACTOR 


1 i 

f 

- ' | 

COMMON  COMPUTED/ USED! 

AALP 

abet 

ACCND 

ACCi 

ACC 

1 

AOEVX 

ALNGTH 

APRO 

ARES 

BIA 

: 

CXSU 

CXSV 

CXU 

CXV 

CXXS 

OAB 

OEB 

DELAXS 

OELECC 

DELICL 

l 

OELMA 

DELMUP 

OELHUS 

DELNOD 

DELTP 

\ 

OELW 

DIB 

DMA8 

DMUPB 

DMUSB 

„ » 

1 } 

0N08 

OTKAX 

DTPLAN 

fiTSUN 

DWB 

: f 

EM  1 

EM4 

EM5 

EM6 

EM7 

j. 

EM5 

EPS 

EP50 

r ACP 

FACV 

i- 

f 

' 

FNTM 

FOP 

FOV 

IAMNF 

IAUGIN 

13  ARY 

I COT  3 

ICOORD 

ICOOR 

IDNF 

IE  IG 

IEPHEM 

IHYP1 

IMNF 

INPR 

f 

I0PT7 

IPRINT 

IPRT 

ISP2 

ISTMC 

ISTM1 

KPRI NT 

MNCN 

NBOD1 

NBOO 

NB1 

NO  ACC 

NOIM1 

HDIM2 

NOIM3 

NEV10 

NEVil 

NEVi 

NEV2 

NEV3 

> 

< 

NEV4 

NEV5 

NEV6 

NEV7 

NEV9 

NO 

NST 

NTMC 

ONE 

PS 

P 

RAD 

SAL 

SIGALP 

SIGBET 

\ 

SIGPRO 

SIGRES 

SLAT 

SLB 

SLor 

i 

SSS 

TM 

TRTM1 

TTIM1 

TTIrtZ 

f 

TWO 

T 

UNMAC 

UST 

uo 

k 

t. 

VST 

VO 

HST 

XI 

XP 

rt 

Y 

k 

.i  • 

ZERO 

common  computed i 

AOEVXS 

BORSI1 

BDR^IZ 

BORSI3 

BDTSI1 

BOTSIZ 

BDTSI3 

8SIi 

SSI? 

BSI3 

■ i 

DELTM 

EM13 

Ff4, 

EM3 

CM9 

r 

HALF 

IAUGDC 

1AUGMC 

IAUG 

7CA1 

ICA2 

IC  A3 

ICDw> 

ICL2 

IC-. 

1 < • » • 

INCMT 

INITAL 

ISOI1 

SS0I2 

IS0I3 

■ : f; 

ISPH 

ITR 

NBODYI 

NEV  5 

RCA1 
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MTAS-D 


RCA2 
TCAi 
TXMXHT 
THOPI 
XSL 

COMMON  US EOI  AXNC7 

ECC7 

NAF6 

PI 

TPT2 

T5 


RCA3 

RS0I1 

RS0X2 

RS0I3 

TCA2 

TCA3 

TEV 

THREE 

TRTMB 

TS0X1 

TS0X2 

TS0X3 

VS0Z1 

VS0X2 

VS0I3 

XXI 

XU 

XV 

21 

AN0DE7 

AVARM 

OATEJ 

DNCN 

ELMNT 

F 

HP7 

IPROB 

NS 

NLP 

NTP 

PERP7 

PLANET 

PMASS 

P7 

TAU7 

T 1 

T2 

T3 

T4 

T 6 

T7 

XNM 

DATA  1- A 


SUBROUTINE  DATA1 

PURPOSE*  TO  CONTINUE  THE  INITIALIZATION  PROCESS  DESCRIBED  UNDER 
DATA. 

CALLING  SEQUENCE!  CALL  DATAl(NENT) 

ARGUMENT*  NENT  I NUMBER  OF  CAROS  IN  THE  MEASUREMENT  SCHEDULE 


SUBROUTINES  SUPPORTED*  DATA 
SUBROUTINES  REQUIRED*  GHA 

LOCAL  SYMBOLS*  AMIN  INTERMEDIATE  VARIABLE 

AP  INTERMEDIATE  TIME  ARRAY 


ICNT  COUNTER  ON  MEASUREMENT  SCHEDULE  CARDS 

IRON  INTERMEDIATE  RON  INDEX 

HEAS  MEASUREMENT  COOES 

NOUT  DIMENSION  OF  AUGUHENTED  COVARIANCE  M' IRIX 


SCHEO 

ARRAY 

OF  TIMES 

IM  MEASUREMENT 

SCHEDULE 

COMMON  COMPUTED/USED* 

IEVNT 

NEV 

NMM 

SLAT 

SLON 

TEV 

TMN 

T 1 

T2 

T 3 

T4 

T5 

T6 

T7 

T 

COMMON  COMPUTED* 

CXSUB 

CXSUG 

CXSV8 

CXSVG 

CXUB 

CXUG 

CXVB 

CXVG 

CXXSB 

CXXSG 

EM 

EPS 

IIPOL 

IPOL 

MCNTR 

MCODE 

NAE 

NGE 

NPE 

NQE 

OMEGA 

P8 

PG 

PS0 

PSG 

TG 

XB 

XF 

XG 

COmtOK  USED* 

CXSU 

CXSV 

CXU 

CXV 

CXXS 

DATEJ 

ONCN 

EM7 

EM8 

EP5  0 

EVNM 

FACP 

FACV 

FNTM 

XCDQ3 

IDNF 

IGUIO 

IHYP1 

IMNF 

1ST  NC 

HNCN 

HNNAME 

NQIM1 

NDIM2 

NDIM3 

NEV1 

NEV2 

NEV3 

NEV4 

NEV5 

NEV6 

NEV7 

NST 

ONE 

PS 

P 

RAD 

SAL 

TPT2 

TRTM1 

UO 

VO 

XI 

ZERO 

DATA IS- A 


SUBROUTINE  0ATA1S 

PURPOSE!  TO  CONTINUE  THE  INITIALIZATION  PROCESS  DESCRIBED  UNDER 
OATAS. 

CALLING  SEQUENCE!  CALL  QATAlStNENT  ) 

ARGUMENT!  NENT  I NUMBER  OF  CARDS  IN  THE  MEASUREMENT  SCHEDULE 


SUBROUTINES  SUPPORTED!  OATAS 


SUBROUTINES  REQUIREOI 
LOCAL  SYMBOLS!  AMIN 

AP 

ICNT 

IRON 

HEAS 

NOUT 

PAR  Ah 

SCHEC 


GHA 

INTERMEDIATE  VARIABLE 

INTERMEDIATE  TIME  ARRAY 

COUNTER  ON  MEASUREMENT  SCHEDULE  CARDS 

INTERMEDIATE  ROM  INDEX 

MEASUREMENT  CODES 

DIMENSION  OF  AUGUHENTEO  COVARIANCE  MATRIX 

ARRAY  OF  AUGMENTED  BIASES 

ARRAY  OF  TIMES  IN  MEASUREMENT  SCHEDULE 


COMMON  COMPUTED/USED! 

AOEVXS 

IEVNT 

NEV 

NMN 

SLAT 

SLB 

SLON 

TEV 

TMN 

T 1 

T2 

T 3 

V* 

T5 

T6 

T7 

T 

COMMON  COMPUTED! 

AOEVSB 

ADEVXB 

CXSUB 

CXSUG 

CXSVB 

CXSVG 

CXUB 

CXUG 

CxVB 

CXVG 

CXLSB 

CXXSG 

EDEVXS 

EDEVX 

EH 

EF  j 

I IPOL 

IPOL 

NCNTR 

MCODE 

NAE 

NGE 

NPE 

NQE 

OMEGA 

PB 

PG 

PSB 

PSG 

TS 

, . 

XB 

XF 

XG 

XII 

ZI 

COMMON  USED! 

ACC1 

ADEVX 

AVARM 

SIA 

CXSU 

CXSV 

CXU 

CXV 

cxxs 

DAB 

OATEJ 

DEB 

DIB 

OHAB 

OMUPB 

OMUSB 

ONCN 

ONOB 

0MB 

EM7 

EM8 

EP50 

EVNH 

FACP 

FACV 

FNTM 

IANMF 

IAUGIN 

ICOQ3 

ICDT3 

I0NF 

IHYPi 

IMNF 

ISTMC 

MNCN 

HNNAKE 

NB0D1 

NB1 

NDIMI 

NDIM2 

N0IM3 

NEV1 

NEV  2 

NEV3 

NEVL 

DATA1S-B 


HEV5 

NE  VO 

NEV7 

NST 

ONE 

PLANET 

PS 

P 

RAD 

SAL 

tPT2 

TP.TMi 

TTIM1 

fTXH2 

UNHAC 

UO 

VO 

XDUH 

XX 

ZERO 

DESE8T-A 


SUBROUTINE  DESENT 


PURPOSE • TO  COMPUTE  A CORRECTION  TO  AN  INITIAL  VELOCITY  BY  THE 
STEEPEST  DESCENT  OR  CONJUGATE  GRADIENT  TECHNIQUES  FOR 
USE  BY  TARGET. 


CALLING  SEQUENCE! 
ARGUMENTS!  ERC 
IT 

KREK 

CMP 

PPC3) 


CALL  DESENT (ERC»ITtKREK.GMP,PP) 

I SCALAR  ERROR  OF  CURRENT  ITERATE 

I/O  ITERATION  COUNTER 

I STEEPEST  DESENT  RECTIFICATION  NUMBER 

I/O  PREVIOUS  GRADIENT  HAGNITUOE  (INPUT) 
CURRENT  GRADIENT  HAGNITUOE  (OUTPUT) 

I/O  PREVIOUS  GRAOIEMT  (INPUT) 

CURRENT  GRADIENT  (OUTPUT) 


SUBROUTINES  SUPPORTED!  TARGET 
SUBROUTINES  REQUIRED!  TAROP7  VHP 
LOCAL  SYMBOLS!  ACK 

AER 
AUXN 


CURRENT  ACCURACY  LEVEL 

ABSOLUTE  ERRORS  OF  TARGET  PARAMETERS 


VALUES  OF  AUXILIARY  PARAHETERS  OF  CURRENT 
ITERATE 


DO  OIRECTXONAL  QERIATXVE 

OELVN  MAGNITUDE  OF  PREOICTEO  CORRECTION 

DEVI  DEVIATION  OF  NOMINALLY-PREDICTED  AUXILIARY 

PARAMETERS  FROM  CURRENT  ITERATE  VALUES 

DUMH  DUMMY  VARIABLES 

DUN  DUMMY  VARIABLES 

DVEE  VELOCITY  PERTURBATIONS 

DVN  MAXIMUM  ALLONABLE  VELOCITY  INCREMENT 

ER8  SCALAR  ERROR  OF  NOMINALLY-PREDICTED  STEP 

GC  CURRENT  GRAOIEMT 

CMC  MAGNITUDE  OF  GC 

MB  NOMINALLY  PREOICTEO  STEP  MAGNITUDE 
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DESB8T-B 


HH  CORRECTION  MAGNITUDE  AFTER  CONSTRAINTS 

HS  CORRECTION  MAGNITUDE  AFTER  PARABOLIC  FIT 

ZENO  FLAG  SET  TO  1 IF  TOLERANCES  ACCEPTABLE 

ON  PERTURBED  TRAJECTORY 

ISP2  SOI  STOPPING  CONDITION  FLAG 

*0  00  NOT  STOP  AT  SOI 
*1  STOP  AT  SOI 

PC  DIRECTION  OF  CORRECTION 

PERR  PERTURBED  ERRORS 

PM  MAGNITUDE  OF  UNNORHALIZED  DIRECTION  VECTOR 

QC  UNIT  VECTOR  IN  DIRECTION  OF  GRADIENT 

RSF  FINAL  STATE  OF  INTEGRATION 


COMMON 

COHPUT ED/USED I 

DELTAV 

ISPH 

RIN 

TEN 

COMMON 

CONPUTEDI 

ICL2 

I CL 

INCMT 

RRF 

COMMON 

USED* 

AAUX 

AC 

ATAR 

CTQL 

OAUX 

CELT AT 

OTAR 

DVHAX 

01 

FAC 

IPHASE 

ISTOP 

KUR 

LEV 

LVLS 

NOPAR 

PERV 

TRTM 

TNO 

ZERO 

DESEHT-1 


DE8EST  Analysis 


DESEHT  eoop'Ui  a correct  Jon  to  an  initial  velocity  by  the  steepest 
daacent  or  conjugate  gradient  techniques  for  use  by  TARGET . 


The  technique  used  is  determined  by  the  value  of  METHOD.  DESENT  takes  n 
steps  In  the  conjugate  gradient  directions  before  rectifying  by  making  a 
steepest  descent  step  where  n “ METHOD  - 1 . Thus  if  METHOD  “ 1,  all 
steps  are  taken  in  the  steepest  descent  direction. 


Let  the  current  iterate  initial  state  be  denoted  r,  v . Let  the  scalar 
error  of  the  auxiliary  parameters  corresponding  to  this  state  be  denoted  « 
Let  the  perturbation  size  for  the  sensitivities  be  dv  . 


The  current  gradient  gc  is  computed  by  numerical  differencing.  For  the 
k- th  component  of  g*  the  corresponding  component  of  velocity  is  perturbed 
by  dv 


v 

P 


v + dv 


T T 


J 


(1) 


The  initial  state  ( r,  v^  ) is  then  propagated  to  the  final 
conditions.  Let  the  auxiliary  parameters  of  that  trajectory 
The  error  associated  with  the  perturbed  state  is  then 

t - V • < a - a**  ) (2) 

P P 

where  V represents  the  weighting  factors  and  <**  are  the  desired  target 
conditions.  The  k- th  component  of  the  current  gradient  is  then 


stopping 
be  denoted  a 

P 


The  corrected  gradient  is  given  by 


P 

P 


(3) 


steepest  descent  step 


conjugate  gradient  step  (4) 


where  the  subscript  c refers  to  a current  parameter, 
previous* step  parameter. 


p refers  to  a 


DESENT-2 


c 

The  unit  vector  la  the  direction  of  the  next  step  is  then  given  by 


(5) 


The  directional  derivative  of  the  scalar  error  in  the  the  direction  q is 

c 

d “ g*  • q*  (6) 

c c 

The  nominal  step  size  h is  computed  from  a linear  approximation  to  null 
the  error 


(7) 


,* 

_ > 


m4 

j 

i 


* 


The  initial  state  corrected  by  this  nominal  correction  is  then  propagated 
to  the  final  stopping  conditions  and  the  resulting  error  € computed. 

The  three  conditions 


y(o)  - £ 

y(h)  - € 

y'(o)  - d (8) 

may  now  be  applied  to  the  formula  of  a parabola  > - e “ a (x  - h*)  to 
predict  the  optimal  step  size  h yielding  the  minimum  error  € * 


h* 


2 (dh  + £ - 7*  > 


The  correction  for  the  current  is  then  given  by 

Av  " h*  q^ 


(9) 


(10) 


Beference:  Myers,  G.  E.,  "Properties  of  the  Conjugate  Gradient  and  Davidon 

Methods",  AAS  Paper  68-081.  Presented  at  1968  AAS/AIAA  Astro- 
dynamics  Specialist  Conference,  Jackson,  Wyoming. 
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' V 


Flow  Char 


ENTER 


Set  KOHP 
level,  pe 
save  noral 

” 

" 0,  set  up  accuracy 
rturbation  Av,  and  _ 
nal  auxiliary  values  O . 

\t 

Set  u 
based 

p ISP2,  1CU  Flags 
on  XSTOP  flag. 

PHBM 

" >■ 

V 

L? 

CKP  - KOMP  + 1 

V 

• v*  +■  A v*  (KCKP) 

l' 

Call  VMJ 
Jeetory 

? to  integrate  tra- 
to  stopping  conditions. 

DESEHT-3 


Did  trajectory  miss  SOI 
and  IS TOP  f 1 


Call  TAR0PT(3)  to  compute  and 
store  trajectory  target  parameters 
a p and  auxiliary  parameters  . 


- v*  - Av*  fKCK?) 

Av  CKCKP)  - Av  (KCKT)/4 


Do  target  parameters 
satisfy  tolerances? 


LEND  - 1 


Compute  error  of  component  £ 
«k  - W • (~a  -~a*) 
and  comp  of  grad  « c - £ k 

K A,e* 


KCMPrNOPAR 


Does  IT  ■ 1 or 
IT  - 0 (mod  Uft)f 


I8C 

2 

Pc  " 

Up 

i'p’*. 

Compute  direction  q^  of  correction 

r - - p'c 


Compute  directional  derivative  DD 

-A 

DD  “ grad  ( . qc 


Compute  nominal  size  of  correction 
h"  - (-  /lDD| 


Integrate  nominally  corrected  state 
(VHP)  and  call  TAROPT  to  compute 
auxiliary  values  to  generate  nominal 
error  e . 


Compute  optimal  step  size  h* 
by  parabolic  fit. 


Compute  correction  Av  ■ 


Update  parameters  for  next  iterate 
IT  « IT  + 1 


Pp  ■ Pc 

Spl  ‘ I *»l 


DYHO-A 


SUBROUTINE  OYNO 

PURPOSE I COMPUTE  OYNAMXC  NOISE  COVARIANCE  MATRIX  IN  THE  ERROR 
ANALYSIS  PROGRAM 

CALLING  SEQUENCE*  CALL  OYNO(ICOOE) 

ARGUMENTS  ICOOE  I ZERO  IN  ERROR  ANALYSIS  MODE 

SUBROUTINES  SUPPORTEOl  ERRANN  SETEVN  GUIOM  PREO 

LOCAL  SYMBOLS t 02  SQUARE  OF  (OELTM*TM) 

COMMON  COHPUTEOI  Q 

COMMON  USEOI  OELTM  DNCN  IDNF  TM 


DYKO-1 


DYS$  Analysis 


Subroutine  D?N$  evaluates  the  dynaaio  noise  covariance  matrix  Q over 
the  time  interval  At  • t^^  - t^.  The  matrix  Q is  assumed  to  have 

form 

Q - diaS  (|  1 KgAt4,  1 K^At4,  ^At2.  K^At2,  KjAt2  ) 

2 U 

where  dynamic  noise  constants  , K^,  and  have  units  of  km  /sec  . 


> 


OYNOS-A 


SUBROUTINE  DYNOS 

PURPOSES  COMPUTE  DYNAMIC  NOISE  COVARIANCE  MATRIX  ANO  THE  ACTUAL 

DYNAMIC  NOISE  (UNMOOELF.O  ACCELERATION)  IN  THE  SIMULATION 
PROGRAM 

CALLING  SEQUENCES  CALL  DYNOS(ICOOE) 

ARGUMENT!  ICOOE  I INTERNAL  COOE  TO  DETERMINE  IF  THE  DYNAMIC 

NOISE  MATRIX  IS  COMPUTED  OR  IF  THE  ACTUAL 
OYNAMXC  NOISE  IS  CALCULATED 


SUBROUTINES  SUPPORTED!  SIMULL  SETEVS  GUISIM  PRES1M 


LOCAL  SYMBOLS!  DT 

02 
IC 
T 1 
T2 


INTERNAL  TIME  INCREMENT 
SQUARE  OF  (DELTM*TM) 

INTERNAL  CODE  ON  OT  CALCULATION 
CURRENT  TIME 

CURRENT  TIME  ♦ OELTA  TIME 


COMMON  COHPUT ED/USED  I N 

COMMON  CONPUTCOS  Q 

HALF  IDNF  TM 

TTIM2  UNMAC  ZERO 


COMMON  USED!  OELTM  ONCN 

TRTH1  TTIM1 


DYHOS-1 


V ' 


DYK#S  Analysis 


Subroutine  DYW0S  performs  two  functions.  It's  first  functioa  is 
identical  to  that  of  subroutine  DYJ$,  namely,  to  evaluate  the  dynamic 
noise  covariance  matrix  Q over  the  time  interval  At  • 


The  second  function  of  subroutine  DYN0S  is  to  coer>ute  ♦‘he  actual 
dynamic  noise  , which  represents  the  integrated  effect  of 

unmodelled  accelerations  acting  on  the  spacecraft  over  the  time 
interval  At.  Actual  dynamic  noise  EJ._  U8P<*  elsewhere  in  the 
program  to  compute  the  actual  state  deviations  of  the  epacecraft 
from  the  most  recent  nominal  trajectory. 


If  we  define  ^ 


T 


where 


u>  and  ut  denote  the  contributions  of  unmodelled 

-*•  V 

*k«-l  k*l 


accelerations  to  spacecraft  position  and  velocity,  respectively,  and 
if  we  assume  constant  unmodelled  acceleration  a,  then 


ur  (tk«-l  “ V2  * (W  “ V 

k+l  2 k 


u 


» <Vi  - V 


♦ U 


The  program  permita  the  entire  trajectory  to  be  divided  into  three 
arbitrary  consecutive  intervals^  over  each  of  which  a different  con- 
stant unmodelled  acceleration  a can  be  specified.  These  intervals  ore 
represented  by  (tQ,  t^) , (t^,  t^) , and  (t£,  tf) , where  tQ  is  the 

initial  trajectory  time  and  tf  is  the  tinal  trajectory  time.  If  t^ 


and  t^^  occur  in  different  intervals,  then  the  above  equations  must 
be  evaluated  piece-wise  over  ( t^,  ) . 


♦ 
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EIGHT- A 


SUBROUTINE  EIGHT 

PURPOSE  I TO  CONTROL  THE  COMPUTATION  OF  EIGENVALUES*  EIGENVECTORS* 
ANO  HTPERELL IPSO IDS. 

CALLING  SEQUENCE!  CALL  EIGHT <VEIG ,F0X ,HARG, IFMT) 


ARGUMENT! 

VEIG 

I 

MATRIX  TO  BE  DIAGONALIZED 

FOX 

I 

FINAL  OFF-DIAGONAL  ANNIHILATION 

VALUE 

HARG 

I 

MATRIX  FOR  WHICH  THE  HTPERELL IPSOID  IS  TO 
BE  COMPUTED 

IFMT 

I 

FORMAT  FLAG 

*1,  PRINT  POSITION  EIGENVALUE 
*2,  PRINT  VELOCITT  EIGENVALUE 
«3»  PRINT  EIGENVALUE  TITLE 

TITLE 

TITLE 

SUBROUTINES  SUPPORTEOI  SETEVS  GUIS  IN  GUISS  PRESIM  GUIOH 
SUBROUTINES  REQUIRED!  HTELS  JACOBI 
LOCAL  STHBOLS!  EGVCT  EIGENVECTOR  MATRIX 

EGVL  EIGENVALUE  NATRIX 

OUT  SQUARE  ROOTS  OF  EIGENVALUES 


COlfM ON  USED! 


IHTP1 


I 


l 


ELCA&-A 


SUBROUTINE  EL CAR 

PURPOSE I TRANSFORMATION  OF  CONIC  ELEMENTS  TO  CARTESIAN 
COORDINATES 

CALLIN'.  SEQUENCE*  CALL  ELCAR(GM, A,EVNVXI,XN, TA,R,RH, V,VH,TFP) 


ARGUMENTS 

GN 

I 

GRAVITATIONAL  CONSTANT  OF  CENTRAL  BOOT 

A 

I 

SE HI MAJOR  AXIS 

E 

I 

ECCENTRICITY 

N 

I 

ARGUMENT  OF  PERIAPSIS 

XI 

I 

INCLINATION  IN  REFERENCE  SYSTEM 

s 

XN 

I 

LONGITUDE  OF  ASCENDING  NODE 

m 

\ 

TA 

I 

TRUE  ANOMALY 

R(3) 

0 

POSITION  VECTOR  IN  REFERENCE  SYSTEM 

RM 

0 

POSITION  MAGNITUDE 

V(3) 

0 

VELOCITY  VECTOR  IN  REFERENCE  SYSTEM 

VM 

0 

VELOCITY  MAGNITUDE 

TFP 

Q 

TIME  FROM  PER I APSIS 

SUBROUTINES 

SUPPORTED i 

OATAS  VHP  NO ML IN  COPINS  NONINS 

OATA  HELIO  NULTAR  CPROP 

SUBROUTINES 

REQUIRED l 

NONE 

LOCAL  SYMBOLS 1 

AUXF 

ECCENTRIC  ANOMALY  (HYPERBOLIC  CASE) 

AVA 

MEAN  ANOMALY  (ELLIPTIC  CASE) 

, . 

Cl 

COSINE  OF  INCLINATION 

CK 

VELOCITY  FACTOR  USED  TO  CALCULATE  FINAL 
VELOCITY  VECTOR 

CN 

COSINE  OF  LONGITUDE  OF  ASCENDING  NODE 

^ ■ 

COSEA 

COSINE  OF  ECCENTRIC  ANOMALY  (ELLIPTIC 
CASE) 

CT 

COSINE  OF  TRUE  ANOMALY 

r3i 

*■  -C  i 
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c:*> 


i 


ELCAR-B 


CM  COSINE  of  sup  of  argument  of  periapsis  and 

TRUE  ANOMALY/  COSINE  OF  ARGUMENT  OF 
PERXAPSIS 

oxv  the  sum  i.*e*(coscta/rad)) . used  as  a 

DIVISOR  IN  SUBSEQUENT  EQUATIONS  TO 
CALCULATE  TFP 

EA  ECCENTRIC  ANOMALY  C ELLIPTIC  CASE) 

P SEKI-LATUS  RECTUM 

RAO  DEGREES  TO  RADIANS  CONVERSION  FACTOR 

SINEA  SINE  OF  ECCENTRIC  ANOMALY  (ELLIPTIC  CASE) 


* 


SXNMF  HYPERBOLIC  SINE  OF  AUXF 
SI  SINE  OF  INCLINATION 

SM  SINE  OF  LONGITUDE  OF  ASCENOING  NODE 

ST  SINE  OF  TRUE  ANOMALY 

SM  SINE  OF  THE  SUM  OF  ARGUMENT  OF  PERIAPSIS 

AMO  TRUE  ANOMALY/  SINE  OF  ARGUMENT  OF 
PERIAPSIS 

TANG  INTERMEDIATE  VARIABLE  USED  TO  CALCULATE 
SXNMF 


i 

* 


w 

i 


T 

i 
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ELCAS-1 


ELCAR  Analysis 


I 


BT-f-AB  transforms  the  standard  conic  elestanta  of  a martlet!  point  referenced 
to  a gravitational  body  to  cartesian  position  and  velocity  components  with 
respect  to  that  body. 

Let  the  gravitational  constant  of  the  body  be  denoted  M and  the  given 
conic  elements  (a,  e,  i,  C J , Q , * )•  The  semi  la  tus  rectum  p is 

p - a (1  - e2)  (1) 

Then  the  magnitude  of  the  radius  vector  is  given  by 


r 


P 

1 e cos  f 


(2) 


The  unit  vector  in  the  direction  of  the  position  vector  is 


u » 

X 

cos 

( « + f) 

cos 

Q 

- cos  i 

sin 

( « + 

f> 

sin  Q 

c 

<< 

t 

cos 

( m + f) 

6in 

Q 

+ cos  i 

sin 

(«  + 

f) 

cos  J2 

U " 

sin 

( « + f) 

sin 

i 

z 

The  position  vector 


The  velocity  vector 


r is  therefore 

— * A 

r ■ r u 
v la  given  by 


v 

X 


V 

y 


V 

s 


£(e  + ccs 
-sin  f 


f)(-sin  w cos Q -cos  i sin  Q cos  u ) 
(cos  u cos  Q -co 8 i sin  Q sic  w )1 


£(e  ▼ cos 
-sin  f 

T(e  + cos 


f)(-sin  u sin  Q +cos  1 cos  Q cos  w ) 
(cos  u sin  Q +cos  i cos  Q sin  w ) j 

f)  sin  i cos  w -sin  f sin  i sin  w] 


(3) 


(*) 


(5) 


The  conic  time  from  periapsis  t is  computed  from  different  formulae 
depending  upon  the  sign  of  the  s&ni-major  aria.  For  a 0 (elliptical 
motion) 


t 

P 


(E  - e sin  E) 


1 


1 


ELCAE-2 


cos  E 


e + cob  f 
1 ♦ e cos  f 


•in  E 


8 In  { 

1 + e cos  f 


For  a ^ 0 (hyperbolic  motion)  the  time  from  peritpali  1j 


t 

P 


•inh  H - 


H) 


tnnhfi- 

2 


tan 


f 

2 


(6) 


(7) 
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EPHEH-A 


SUBROUTINE  EPMEM 

PURPOSE!  TO  COMPUTE  THE  CARTESIAN  STATE  OF  DESI&D  BODIES  AT 
SPECIFIED  TIKES  ACCORDING  TO  TWO  OPTIONS! 

(1)  ECLIPTIC  COORDINATES  OF  ONE  BODY  RELATIVE  TO  ITS 
REFERENCE  BOOT  «SUN  FOR  PLANETS,  EARTH  FOR  MOON) 
12)  ECLIPTIC  COORDINATES  OF  ALL  GRAVITATIONAL  BODIES 

RELATIVE  TO  THE  INERTIAL  COORDINATE  SYSTEM  {EITHER 
HELIOCENTRIC  OR  BARYCENTRIC) . 


CALLING  SEQUENCE! 
ARGUMENT!  0 

IC 


CALL  EPHEM(IC,OvN> 
I 


SUBROUTINES  REQUIRED! 
LOCAL  SYMBOLS!  A 


JULIAN  DATE  OF 
1950) 

REFERENCE 

: TIME 

(REFERENCED 

FLAG  SET  EQUAL 
FOR  OPTION  2 

TO  1 FOR 

OPTION 

1 ANO  TO  0 

NUMBER  OF  GRAVITATIONAL 
COMPUTED 

BODIES 

TO  BE 

HELIO  LAUNCH 

LUNTAR 

MULCON 

MULTAR 

EXCUTE  TRAPAR 

VMP 

DATAS 

PCTM 

PRINT**  PSIH 

TRAKS 

GUISIM 

GUISS 

PRNTS*  DATA 
GUIO 

PRINTS 

TRAKM 

GUI  DM 

CENTER 

SEMI-MAJOR  AXIS  OF  LUNAR  CONIC 


OD  ONE  TEN-THOUSANDTH  TIMES  THE  INPUT 

ARGUMENT  □ FOR  COMPUTATIONS  IN  FN1 , FN2 

E ECCENTRICITY  OF  LUNAR  CONIC 


ECAH  ECCENTRIC  ANOMALY  USED  TO  SOLVE  KEPLER 
EQUATION 

ECC  ECCENTRICITY  USED  TO  SOLVE  KEPLER  EQUATION 
EM  MEAN  ANOMALY  OF  LUNAR  CONIC 


u. 

fc 


E2  E SQUARED 

E3  E CUBED 

FCTR  VELOCITY  DIVIOEO  BY  RADIUS 

FN1  STATEMENT  FUNCTION  DEFINING  A THIRD  OROEK 

POLYNOMINAL.  USED  IN  COMPUTATION  OF  MEAN 
ANOMALY  OF  INNER  PLANETS  ANO  OF  MOON 
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I 


EPHZH-B 


FK 2 STATEMENT  FUNCTION  DEFINING  A FIRST  ORDER 

POLYNOMIAL.  USEO  IN  MEAN  ANOMALY  COMPUTA- 
TIONS OF  THE  OUTER  PLANETS 

I INDEX  FOR  LOGIC  CONTROL 

I JKL  INCREMENT  COUNTER  IN  SOLUTION  OF  KEPLER 
EQUATION 

IN  INDEX*  RON  OF  F OF  LUNAR  COORDINATES 

IND  INDEX,  ROM  OF  F OF  COORDINATES  OF  THE 

I— TH  PLANET 


* 

! 


i 

u 

► 

I 


ITEMP  INTERMEDIATE  VARIABLE  USED  TO  NORMALIZE 
CONIC  ANGLES 

ITEST  INTERNAL  CODE  MHICH  DETERMINES  IF 

COORDINATES  OF  EARTH  ARE  BEING  CALCULATED 
IN  ORDER  TO  COMPUTE  THOSE  OF  MOON 

ITEST2  INTERNAL  CODE  WHICH  DETERMINES  IF 

COORDINATES  OF  EARTH  HAVE  BEEN  COMPUTED 
PRIOR  TO  COMPUTING  THOSE  0 THE  MOON 

K INDEX  USED  IN  CALCULATION  OF  MEAN  ANOMALY 

P SEMI— LATUS  RECTUM 

PIZ  TWO  TIMES  THE  MATHEMATICAL  CONSTANT  PI 

R HELIOCENTRIC  RAOIUS  OF  PLANET 

TRG  ARRAY  OF  TRIGONOMETRIC  FUNCTIONS  OF 

SPECIFIED  ANGLES 

VEL  VELOCITY  Oc  PLANET 

MX  X-COMPONENT  OF  l \|'  ERMEOI  ATE  VECTOR,  M 

WY  Y-COMPONENT  OF  INTERMEDIATE  VECTOR,  M 

HZ  Z-COMPONENT  OF  INTERMEDIATE  VECTOR,  W 


COMMON 

COMPUTED/USED* 

ELMNT 

F 

T 

XP 

COMMON 

USEOI 

CN 

EMN 

IB  ARY 

N80DYI 

NO 

ONE 

ZERO 

PMASS 

ST 

TWOPI 

TWO 
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1 .3* 


EFHIX-l 


EPKEX  Analysis 


I TKZX  first  d«uralMi  the  current  value  for  Che  mean  anomaly  of  the 
pertinent  body.  The  mean  anomaly  M is  computed  from 


M - Kq  + Mjt  + Kjt2  + Kjt3 


M - M + M,  t 

0 l 

K - + L;t  ♦ Ljt2  f I^t3  ~ 


for  inner  planets 
for  outer  placets 
W(t)  for  the  moon 


Kepler's  equation  14  - B - e sin  E is  then  solved  iteratively  to  determine 
wiie  eccentric  anomaly  E . The  subsequent  computations  are  basic  conic 
n anlpulations : 

P - a(l  - e2) 


t 

5*5 


r “i  a(l  - e cos  E) 


2 _ l 

r a 


cos  f ■ £-  r 

sin  f » Vl  - cos2  f 

sgn(sln  E) 

er 

r-‘ 

w* 

y m 

cos  7 • J — ■ — 

rv 

sin  y “ Vl  - cob^ 

s&n(sln  E) 

~ _ 
Um  Li  - Q 


The  cartesian  position  and  velocity  relative  to  the  reference  body  are  then 


r " rx  1 + ryj  + r2  k 


r^  ■ r cos(<*>  + f)  cos  Q - r pln(w+  f)  sin  Q cos  i 

r^  - r cos(w  + 1)  binC  f r sin(W-*-  f)  coal/  cos  i 

r « r sin(w  + f)  sin  i 
z 


■ — [(0  x "r*  ) cos  y + ~r  ain  Y 


where  v ■ (sin  1 sin  Q ) 1 - (sin  1 cos  Q ) j + (cos  i)  k 


P 

£• 

% 


.94 


L 


EPHBt-2 


Vhen  option  1 is  used,  the  reference  body  for  all  the  planets  is  the  sun 
while  the  reference  body  for  the  moon  i&  the  earth. 

I 

Vhen  option  2 is  used  with  heliocentric  Inertial  coordinates,  the  cartesian 
state  of  the  earth  is  added  to  the  cartesian  state  of  the  moon  to  convert 
the  state  of  the  moon  to  heliocentric  coordinates  before  storing  that 
state  in  the  7-array. 

Vhen  option  2 is  used  with  barycentrlc  inertial  coordinates,  subroutine 
CENTER  is  called  to  convert  all  elements  to  barycentrlc  coordinates  before 
storing  in  the  7-array. 


„v 

J 

W!  ■ 


h 


'V 

1," 

k 
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ERBAN-A 


PROGRAM  ERR ANN 

PURPOSES  TO  CONTROL  THE  COMPUTATIONAL  FLOW  THROUGH  THE  BASIC 
CYCLE  (MEASUREMENT  PROCESSING)  AND  ALL  EVENTS  IN  THE 
ERROR  ANALYSIS  MODE. 

SUBROUTINES  SUPPORTED!  ERRON 


SUBROUTINES  REQUIRED!  SCHED  NTH 

MEMO  MAVM 


PSIM  DYNO  TkAKM 
PRINTS  SETEVN  GUIDM 


LOCAL  SYMBOLS!  AY  DUMMY  VARIABLE 


{ 

f 


ICODE  EVENT  CODE 

* 

TPRN  MEASLSIENE  NT  COUNTER  FOR  PRINTING 

MHCOOE  MEASUREMENT  CODE 

NEVENT  EVENT  COUNTER 

NR  NUMBER  OF  RONS  IN  THE  OBSERVATION  MATRIX 

TRTM2  TIME  OF  THE  MEASUREMENT 


COMMON 

COHPUT ED/USED! 

ICODE 

XF 

MCNTR 

XI 

RI 

TEVN 

• 

TRTM1 

COMMON 

COMPUTED! 

OELTM 

COMMON 

USED! 

FNTM 

NMN 

IEVNT 

NR 

IPRINT 

NTMC 

ISTMC 

RF 

NEV 

TEV 

\V 
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EUAN  Analysis 


Subroutine  EUAN  control*  th«  computational  flow  through  the  basic  cycle 
(measurement  processing)  end  ell  events  in  the  error  analysis  mode. 

In  the  basic  cycle  the  first  task  of  EM/N_is  to  control  the  generation 
of  the  targeted  nominal  spacecraft  state  at  > 8iv*n  the 

state  at  time  t^  . Then,  calling  PSIM,  DYN0,  TRAXM,  and  HEN0, 

successively,  EUAN  controls  the  computation  of  all  matrix  Information 
required  by  subroutine  NAVM  in  order  to  compute  the  covariance  matrix 
partitions  at  time  t^*^  inxnediately  following  the  measurement. 

At  an  event  EUAN  simply  calls  the  proper  event  subroutine  or  overlay  where 
all  required  computations  are  performed. 


EHSAN-2 


mAN-4 


RETURN 


V 


PROGRAM  ERR  ON 

PURPOSE!  TO  CONTROL  THE  ERROR  ANALYSIS  OVERLAY  SCHEME 

SUBROUTINES  SUPPORTED  I NOSE 

SUBROUTINES  REQUIRED!  DATA  ERRAN  PRUTS 3 

LOCAL  SYMBOLS!  IRUNX  TOTAL  NUMBER  OF  DATA  CASES 

I RUN  DATA  CASE  COUNTER 

M 

- 1 


ESTXT-A 


SUBROUTINE  ESTHT 

PURPOSES  TO  UPDATE  THE  FINAL  VALUES  OF  THE  PRECEDING  COMPUTATION 
INTERVAL  WHICH  SERVE  AS  INITIAL  VALUES  FOR  THE  NEW  STEP, 
TO  OETERHINE  THE  DESIRED  SI2E  OF  THE  NEXT  TIKE  INCREMENT 
ON  THE  BASIS  OF  TRUE  ANOMALY  OR  REQUESTED  PRINTTIME, 

AND  TO  ESTIMATE  THE  FINAL  POSITION  AND  MAGNITUDE  OF  THE 
VIRTUAL  MASS. 

CALLING  SEQUENCES  CALL  ESTHT <Dl,OELTMtTRTH) 

ARGUMENTS  01  I JULIAN  DATE,  EPOCH  1900,  OF  THE  INITIAL 

TRAJECTORY  TIME 

DELTM  I TIKE  INTERVAL  OVER  WHICH  THE  TRAJECTORY 
MILL  BE  PROPAGATED  (OAYS) 


TRTM  I INITIAL  TRAJECTORY  TIME  (DAYS)  REFERENCED 
TO  INJECTION 


SUBROUTINES  SUPPORTED*  VHP 
SUBROUTINES  REQUIRED*  NONE 
COMMON  COMPUTED /USED*  INCHNT  V 

COMMON  COHPUTEO*  ITRAT  KOUNT 


I PR 


COMMON  USED* 


INCPR  INC 


I 


ESTXX-1 


ESHJT  Analysis 


The  initial  values  of  the  state  variables  are  first  set  equal  to  the 
values  at  the  end  of  the  previous  interval.  The  nominal  time  interval 
to  be  used  during  'he  current  step  is  computed  from 


C2  rVS 


CD 


l 


where  t?  is  the  constant  input  true  anomaly  increment  relative  to  the 
virtual  mass  trajectory. 


The  time  interval  to  the  final  time  t^ 
is  computed  and  the  current  time  interval 


or  to  the  next  time  printout  t 
/\  t is  adjusted  if  necessary. 


Finally  the  virtual  mass  final  position  and  magnitude  are  estimated  by 
the  expansions 


Mv  “ % + At 

EBB 

2 

r - r + r At  + r At 
V V V V *-* 

EBB  av 


(2) 
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EUUiX-A 


F 

1 

! 

- I 

J 

e 


SUBROUTINE  EULMX 

PURPOSE*  TO  COMPUTE  THE  MATRIX  REQUIRED  TO  DEFINE  TRANSFORMATIONS 
FROM  ONE  COORDINATE  SYSTEM  TO  ANOTHER. 

CALLING  SEQUENCE*  CALL  EULMX (ALP*NN,BET ,MM,GAM»LL,P) 

ARGUMENT* 


ALP 

I 

FIRST 

ROTATION 

ANGLE  (RADIANS) 

NN 

I 

FIRST 

AXIS  OF 

ROTATION 

BET 

I 

SECOND 

ROTATION 

1 ANGLE  (RAOIANS) 

MM 

I 

SECOND 

AXIS  OF 

ROTATION 

GAM 

I 

THIRD 

ROTATION 

ANGLE  (RAOIANS) 

LL 

I 

THIRD 

AXIS  OF 

ROTATION 

P <3 ,3) 

0 

TRANSFORMATION 

MATRIX 

SUBROUTINES  SUPPORTED*  PECEQ 
SUBROUTINES  REQUIRED*  NONE 
LOCAL  SYMBOLS*  A 


INTERMEDIATE  ROTATION  MATRIX 

ALPHA  TEMPORARY  LOCATION  FOR  EACH  OF  THE 
ROTATION  ANGLES*  ALP,  BET,  AND  GAM 

0 INTERMEDIATE  PRODUCT  MATRIX 

F TRANSFORMATION  MATRIX  FOR  ANGLE  ALP 

G TRANSFORMATION  MATRIX  FOR  ANGLE  BET 

H TRANSFORMATION  MATRIX  FOR  ANGLE  GAM 

N COUNTER  SHOWING  NUM3ER  OF  COORDINATE  AXES 

FOR  WHICH  CALCULATIONS  REMAIN 

NAXIS  TEMPORARY  LOCATION  FOR  EACH  OF  THE  AXES 
OF  ROTATION*  NN, MM,  AND  LL 


COMMON  USED  * 


ONE 


ZERO 
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EXCUT-A 


\ 


$UBROUT$NE  EXCUT 

PURPOSE  : CONTROL  EXECUTION  OF  A VELOCITY  CORRECTION  MODELED  AS  AN 

IMPULSE  SERIES  IN  THE  ERROR  ANALYSIS  PROGRAM 

CALLING  SEQUENCES  CALL  EXCUT 

SUBROUTINES  SUPPORTED!  GUIDM 

SUBROUTINES  REQUIRED!  PREPUL  PULCOV  PULSEX 

COMMON  COKPUTEO/USEOS  XXIN 

COMMON  COMPUTED!  QK 

COMMON  USED!  DELPX,  DIPX,  TM,  INPX 
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EXCUTE-A 


SUBROUTINE  EXCUTE 

PURPOSES  TO  CONTROL  THE  ACTUAL  EXECUTION  OF  THE  VELOCITY 
INCREMENT  DELTAV • 

CALLING  SEQUENCES  CALL  EXCUTE 

SUBROUTINES  SUPPORTED!  GIOAKS 

SUBROUTINES  REQUIRED t PREPUL  PULSEX  CAREL  PECEQ 

LOCAL  STHBOLSt  A SENIHAJOR  AXIS  OF  DOMINANT  BODY  CONIC 

DVH  MAGNITUDE  OF  VELOCITY  INCREMENT 

E ECCENTRICITY  OF  DOMINANT  BODY  CONIC 

INDEX  CODE  OF  BODY  BEING  TESTED  FOR  DOHINANT 
BODY 

T.NO  INDEX  OR  CODE  OF  DOMINANT  BODY 

I SUN  SUN  VALUE  OF  INO 

I INDEX 

JX  INDEX  OF  S/C-REL-T O-SQDY  RON  OF  F-ARRAY 

model  Execution  mooel  (i»ihpulsive,  2»pulse  arc) 
pp  unit  vector  to  pe.rxapsis  in  orbital  plane 

QQ  UNIT  VECTOR  NORMAL  TO  PP  IN  ORBITAL  PLANE 

RN  POSITION  AND  VELOCITY  OF  S/C  AT  END  OF 

EXECUTION  BY  PULSING  ARC 

RSI  POSITION  VECTOR  OF  S/C  RELATIVE  TO 
DOHINANT  BOQY  AT  EXECUTION  TIME 

RTB  RADIUS  MAGNITUDE  TO  BODY  BEING  TESTED  FOR 
QQHIKANT  BODY 

TA  TRUE  ANOMALY  ON  OOMXNANT  BODY  CONIC 

TPP  TI«  FROM  PERXAPSIS  ON  DOMINANT  BODY  CONIC 

VSI  VELOCITY  VECTOR  OF  S/C  RELATIVE  TO 

DOMINANT  BOOT  AT  EXECUTION  TIME 

NN  UNIT  NORMAL  TO  ORBITAL  PLANE 

M ARGUMENT  OF  PERXAPSIS  OF  DOHINANT  BODY 
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CONIC 


XI  INCLINATION  OF  DOMINANT  BODY  CONIC 

XKU  CRAVITIONAL  CONSTANT  OF  DOMINANT  BODY 

XN  LONGITUDE  OF  ASCENOING  NODE  OF  DOMINANT 

BODY 


COMMON 

COMPUTED/USED  I 

DELTAV 

COMMON 

COMPUTED* 

KTIM 

COMMON 

USED* 

ALNGTH 

NBOD 

TM 

D1  RIN  TRTM 


DELV  F KUR  MO. 

N8  PMASS  PULT  SPHERE 

TWO  V 


EXCUTE- 1 


EXCUTE  Analysis 


EXCUTE  is  the  executive  ju^broutine  controlling  the  actual  execution  of 
the  velocity  increment  Av.  The  £v  is  computed  by  TARGET  or  1NSESS  or 
read  in  by  the  user. 

Before  executing  the  correction  EXCUTE  computes  peripheral  information 
of  interest  to  the  user.  It  first  determines  the  dominant  body  acting 
on  the  spacecraft.  If  the  spacecraft  is  in  the  moon's  SOI  (with  respect 
to  the  earth),  the  moon  is  the  dominant  body.  If  not  in  the  moon's  SOI 
but  in  any  of  the  planets'  SOI  (with  respect  to  the  sun)  that  planet  is 
the  dominant  body.  Otherwise  the  sun  is  the  dominant  body. 

Having  determined  the  dominant  body  EXCUTE  computes  the  state  of  the  space- 
craft relative  to  that  body.  It  then  computes  the  conic  elements  of  the 
trajectory  both  before  and  after  an  impulsive  addition  of  the  &v  in 
ecliptic  coordinates. 

If  the  dominant  body  is  not  the  sun,  it  makes  the  same  computations  in 
equatorial  coordinates. 

•EXCUTE  then  operates  on  the  current  value  MODEL  of  the  array  MDL.  If 
MODEL  “ 1,  the  impulsive  model  of  execution  is  commanded.  The  £v  is 
therefore  added  to  the  current  inertial  ecliptic  velocity  before  returning 
to  GIDANS. 

If  MODEL  **  2,  the  pulsing  arc  model  of  execution  is  required.  PREPUL  is 
called  to  perform  the  preliminary  work  needed  for  the  pulsing  arc.  PULS EX 
then  actually  propagates  the  trajectory  through  the  series  of  pulses.  At 
the  completion  of  the  arc  EXCUTE  updates  the  time  and  inertial  ecliptic 
state  (both  position  and  velocity)  of  the  nominal  trajectory  to  the  state 
determined  by  PULS EX. 
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SUBROUTINE  EXCUTS 

PURPOSE  CONTROL  EXECUTION  OF  A VELOCITY  CORRECTION  MODELED  AS  AN 
IMPULSE  SERIES  IN  THE  SIMULATION  PROGRAM 

CALLING  SEQUENCES  CALL  EXCUTS 

SUBROUTINES  SUPPORTEOS  GUISIM 

SUBROUTINES  REQUIREOt  PREPUL,  PULCOV,  PULSEX 

LOCAL  SYMBOLS  RN  EFFECTIVE  SPACECRAFT  STATE  AFTER  A 

VELOCITY  CORRECTION  MCDELEO  AS  AN  IMPULSE 
SERIES 

COMMON  COMPUTEO/USEDS  XXIN 

COMMON  COMPUTEOS  QX 


COMMON  US ED 8 


OELPX,  DIPX,  TM,  INPX 


Excrrs- 1 


EXCUTS  Flow  Chart 


>c- 


ELITE- A 


SUBROUTINE  FLITE 


PURPOSE!  TO  SOLVE  THE 

TIME  OF  FLIGHT  EQUATION 

USING  BATTIN- 

S  UNIVERSAL  EQUATION  F OF 

CALLING  SEQUENCE!  CALL 

FLITECRi. R2. THETA, GM,Tf 

ARGUMENTS!  Ri  Z 

INITIAL  RADIUS 

R2  I 

FINAL  RADIUS 

THETA  I 

CENTRAL  ANGLE 

GM  I 

G3AVITI0NAL  CONSTANT 

t 

TF  I 

TIME  OF  FLIGHT 

J" 

A 0 

SEMIMAJOR  AXIS 

“1 

E 0 

ECCENTRICITY 

i 

K 0 

ERROr,  CODE 
»Q  NO  ERROR 

1 

*1  ERROR 

f 

t 

SUBROUTINES  SUPPORTED! 

HELIO 

i 

? 

t 

SUBROUTINES  REQUIRED! 

NONE 

i 

j 

j 

LQCAL  SYMBOLS ! AMISS 

ERROR  IN  ITERATE 

T 

« 

j 

BIGNO 

CONSTANT  = E+25 

i 

| 

j 

81 

CONSTANT  » S 3/2 

CHECK 

ERROR  IN  ITERATE 

f 

t 

L 

cx 

BATTIN  C-FUNCTION  OF  X 

i 

) 

CY 

8ATTIN  C-FUNCTION  OF  Y 

j 

C 

CHORD  LENGTH 

, 

DEM 

INTERMEDIATE  VARIABLE 

l 

P 

SEMILATUS  RECTUM 

ROOT  INTERMEDIATE  VARIABLE 

SLOP  VALUE  OF  OERIATXVE  OF  T(X> 

SX  BATTIN  S-FUNCTION  OF  X 
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FLITE-S 


SY  BATYIN  s-fiv.ctick  of  y 

Si  SEMIPERIMETER 

S sINTERMEOIATE  VARIABLE  <=i-C/SD 

TIKE  FLIGHT  TIKE  CORRESPONDING  TO  ITERATE  X 

T NORMALIZED  TIKE  OF  FLIGHT 

U FLAG  SET  TO  i IF  X LESS  THAN  PI  2,-i  ELSE 

VB1  INTERMEDIATE  VARIABLE 

V FLAG  SET  TO  1 FOR  TYPE  I,-i  FOR  TYPE  II 

Xi  STARTING  VALUE  FOR  X 

X VARIABLE  INTRODUCED  TO  REPLACE  A 

Y INTERMEDIATE  VARIABLE  AS  FUNCTION  OF  X 


'»v>'  ■ 


\ 


FUTE-1 


FLITE  Analysis 

TUTS,  solves  the  time  of  flight  equation  (Lambert's  theorem)  using  Battle's 
universal  equation  formulation.  Stated  functionally  Lambert's  theorem 
states  that  the  time  of  flight  t{  is  a function 

tf  - tf  (rx  + r2>  c.  a)  (1) 

solely  of  the  sum  + r^  oj  the  distances  of  the  initial  and  final  points 

of  the  trajectory  from  the  cei  tral  body,  the  length  c of  the  chord  joining 
these  points,  and  the  length  c£  the  semimajoi  axis  a of  the  trajectory. 
Usually  the  time  of  flight  is  known  and  it  is  desired  to  solve  for  the  semi- 
major  axis.  The  standard  formulation  involves  different  equations  for  the 
elliptic,  parabolic,  and  hyperbolic  cases,  all  of  which  then  iterate  on  a 
to  determine  the  solution. 


In  Battin's  approach  the  semimajor  axis  a is  replaced  by  a new  variable  x 
By  further  introducing  two  new  transcendental  functions  S(x)  and  C(x), 
the  special  cases  of  the  flight-time  equation  are  combined  into  one  single, 
better  behaved  formula.  The  functions  S (x)  and  C(x)  are  defined  by 


/x~  - sin  \/~x 

3 


1 - COS  V X 


x > 0 


sinh  7-x  - \/-x 

\^3 


cosh  - i 


x < 0 


x - 0 (2) 


A parameter  Q is  introduced  as 


Q - 

2 2 A 

where  c « (r  + r‘  - 2r  r cos  0 

1 2 12 


’ - |<r1+r2+c) 


The  universal  flight- time  formula  is 


Jkx- 


rf> 


run -2 


t • 


S(x) 

c3'200 


,3/2  S(v) 


c3/2W 


yC(y)  • Q x c(x) 


(4) 


where 


r-  V5 


— - . The  choice  of  Che  upper  or  lover  sign  is 


made  according  to  whether  Che  transfer  angle  6 is  less  or  greater  than 
180°  respectively. 


J 

m 


W 


The  development  of  equations  (4)  is  too  long  and  complex  to  be  given  here. 
It  may  be  obtained  from  the  first  reference  listed  below.  The  following 
steps  of  that  reference  are  noted: 

(1)  the  tvo  body  problem  on  pp.  15, *6 

(2)  the  **vis  vivan  equation  and  Kepler's  equation  on  pp.  50,51 

(3)  Lambert's  theorem  proved  from  Kepler's  equation  on  p.  71 

(4)  the  basic  flight- time  formula  and  detailed  analysis  on  pp.  72-78 

(5)  The  universal  formulation  on  pp.  80,81. 

Instead  of  using  the  equations  (4)  the  authors  of  refence  2 (listed  below) 
determined  y as  a function  of  x as 


y • 4 arc  sin 


Vi 


»s£.M  1 

2 I 


x > 0 


- -4 


IV 


il 

xsC(x) 

J| 

xsC(x) 

/I 

2 

VI 

2 

+ 1 


x < 0 


(5) 


Therefore  a single  variable  iteration  is  possible.  Newton's  method  is  used 
to  solve  (4a)  given  T and  Q as 


x - 


T(x  ) T 
n 

T'(*  ) 
a 


(6) 


where 


T(x)  - 


S.te) , 

C3'2U> 


+ Q 


3/2 


SJCxJ L 

c3/2« 


T'(x)  - 


r-  3/2  , , , 

l + k[+Q  - 1.5  V2-yC(y)  T(x)J 


2x  V C(x) 


(7) 


(8) 
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k “ sgn  ( t - x) 

As  ] 2-yC Cy> | — *-0,  k — *1  . Therefore  if  j2-yC(y)l  < 10  k is  set 
to  1.  Also  T‘(x)  breaks  down  as  x— -*-0  . Therefore  the  approximation 
is  used: 

- 3/2  t 

T'  (x)  - -1 1 x 1 < 10“b  (10) 

2 r 

The  starting  value  for  x is  given  by  x - x^  - Ax(T,Q)  where 
x - 82.1678  + 352.8045  T 

2 h 

- (123954.8504  T + '+3904.0083  T + 13423.6819) 

Ax(T,Q)  - + ( 2~ 6—  + (0.3  Q2 *  + 0.7Q)  (11) 

Vi  + .15  / 

'To  insure  that  the  routine  will  not  fail  for  large  or  small  values  of  T 
certain  restrictions  on  I are  built  into  the  program.  The  nominal  value 
of  T is  forced  to  be  no  larger  than  950,000  and  no  smaller  than  10"^. 
This  forces  the  corresponding  limits  for  x of  -823.0473  < x fs  39.14553. 

Finally  convergence  is  achieved  when  T(x  ) - Tj  < — — . 

1 n ! 100000 


V 


2-x0(x) 

2-yC(y) 


(S) 


Having  solved  for  semimajor  axis  a , the  semilatus  rectum  p is  given  by 

(12) 


( r r sin8 

1 T 1 

, 0 

1 ) 1 2 

JL  . _L  ( ‘ 

2 ' c 

\ s-c  2a  " Sgn  (tm  t}  \ 

s 2a  i 

the  eccentricity 

e is  given  by 

P 

1 - - 
a 


(13) 
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(1)  Battin,  R.  H. , Astronomical  Guidance,  McGraw  Hill  Book  Go.,  Inc., 
New  York,  1964. 

(2)  Lesh,  H.  F.,  and  Travis,  C.,  FLIGHT:  a Subroutine  t')  Solve  the 

Flight  Time  Problem,  JFL  Space  Programs  Summary  37-53,  Vol.  II. 
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GHA-A 


SUBROUTINE  GHA 

PURPOSES  TO  COMPUTE  THE  GREENWICH  HOUR  ANGLE  AND  THE  UNIVERSAL 
TIME  (IN  OATS)  WHICH  IS  USEO  IN  THE  TRACKING  MODULE  TO 
ORIENT  THE  TRACKING  STATIONS  ON  A SPERICAL  ROTATING 
EARTH. 

CALLING  SEQUENCES  CALL  GHA 
ARGUMENTS S NONE 

SUBROUTINES  SUPPORTEOS  OATA1S  OATA1 


LOCAL  SYMBOLS S 0 

EQMEG 

GH 

10 

REFJD 

TFRAC 

TSTAR 


NUMBER  OF  DAYS  IN  TSTAR 

EARTH  ROTATION  RATE 

GREENWICH  HOUR  ANGLE 

INTERMEDIATE  VARIABLE 

JULIAN  DATE  OF  JAN.  0,  1950 

FRACTION  OF  DAY  IN  TSTAR 

JULIAN  DATE,  EPOCH  JAN.  0,  1950,  OF 
INITIAL  TRAJECTORY  TIME 


COMMON  COHPUTEDS  UNIVT 

COMMON  USEOS  DATEJ  EM13 
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Subroutine  GHA.  computes  the  Greenwich  hour  apgle  in  degrees  and  days  at 
soma  epoch  T*  referenced  to  1950  January  1*0  . Epoch  T*  is  computed  from 

T*  - J.D.q  + 2415020.0  - J.D.^ 

where 

J.D.  ” Julian  date  at  launch  time  t referenced  to  1900 
January  0*12  . ° 

J.P.BCT  " Reference  Julian  date  2433282.5  * 

“ 1950  January  1^0^  referenced  to  January  0^12^  of 
the  year  4713  B.C. 

and  2415020.0  “ 1900  January  0^12^  referenced  to  January  0^12^ 

of  the  year  4713  B.C. 

Then  T*  ia  the  Julian  date  at  launch  time  t referenced  to  1950  January 

iV.  ° 

The  Greenwich  hour  angle  corresponding  to  T*  is  given  by 

GHA(T*)  - 100.0755426  + 0.985647346d  + 2.9015  x 10"13  d2  +c-t 
where  0 * GHA(T*)  < 360? 

and  d - integer  part  of  T*,  t - fractional  part  of  T*, 

and  W “ Earth's  rotation  rate  is  degrees/day. 

GHA 

The  Greenwich  hour  angle  ia  days  is  given  by  . 

CJ 
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SUBROUTINE  GIOANS 

PURPOSE*  EXECUTIVE  ROUTINE  FOR  COMPUTATION  OF  REQUIREO  GUIOANCE 
EVENT 

CALLING  SEQUENCE*  CALL  GIOANS 
SUBROUTINES  SUPPORTED*  NOHNAL  NONLIN 

SUBROUTINES  REQUIREO*  EXCUTE  ZERIT  TARGET  INSERS  TIME 

VHP 

LOCAL  SYMBOLS*  OTIHE  DELTA  TIME  (DAYS)  BETWEEN  ORBIT  INSERTION 

COMPUTATION  AND  EXECUTION 

I ZER  VECTOR  OF  COOES  USED  FOR  RETARGETING 

IZER(KUR>=0,  00  NOT  RECOMPUTE  ZERO  ITERATE 
*Q,  RECOMPUTE  ZERO  ITERATE 


I INDEX 

KTYPE  VALUE  OF  KTYP(KUR)  INDICATING  TYPE  OF 
EVENT 

=1*  ORIGINAL  TARGETING 
=2,  RETARGETING 
=3,  ORBIT  INSERTION 

MODEL  DOES  NOT  APPEAR  IN  CURRENT  VERSION  SEE 
EXECUTE 


COMMON 

COMPUTED/USED* 

KMXQ 

KNIT 

TIMG 

COMMON 

COMPUTEO* 

DELV 

KTIM 

ZDAT 

COMMON 

USED* 

DELTAV 

KTYP 

KUR 

MOL 

RIN 

GIDANS-1 


GIDANS  Analysis 


GIDANS  ia  an  executive  routine  responsible  for  processing  a guidance 
maneuver  from  the  computation  of  the  velocity  increment  Av  to  the 
execution  of  that  correction. 


Before  entry  to  GIDANS,  TRJTRY  has  computed  the  index  of  the  current 
event  (KUR)  and  has  integrated  the  nominal  trajectory  to  the  time  of  the 
event.  GIDANS  now  evaluates  the  KUR  component  of  two  integer  arrays  KTYP 
and  KMXQ.  The  values  of  these  flags  determines  the  operation  of  GIDANS. 
The  flag  KTYP  specifies  the  type  of  guidance  event  to  be  performed  while 
KMXQ  prescribes  the  compute/execute  mode  to  be  used  according  to 


KTYP  - -1 

1 

2 

3 


Termination  event 
Targeting  event 
Retargeting  event 
Orbit  Insertion 


KMXQ 


1 Compute  Av  only 

2 Execute  only 

3 Compute  and  execute  2"v 

<-  Compute  but  execute  2fv  later 


GIDANS  first  checks  for  a termination  event.  If  the  current  index  prescribes 
such  an  event,  the  flag  KWIT  is  set  to  1 and  a return  is  made  to  the  main 
program  NCKNAL. 

In  preparation  for  a normal  guidance  event,  GIDANS  calls  VMP  with  the 
current  spacecraft  heliocentric  state  and  a time  increment  of  zero  to 
restore  the  F and  V arrays  providing  the  current  geometry  of  space- 
craft and  planets.  If  the  current  event  is  an  execute-only  mode,  the 
transfer  is  made  to  the  execution  section  of  GIDANS  fqr  the  addition  of 
the  pre-set  velocity  increment. 


Otherwise  GIDANS  interrogates  KTYP  for  the  type  of  maneuver  to  be  computed. 
For  a targeting  event,  subroutine  TARGET  is  called  directly  for  the  compu- 
tation of  the  £v  necessary  to  satisfy  input  target  conditions.  After 
calling  TARGET  the  F and  V arrays  are  restored  as  Indicated  above. 

A retargeting  event  is  defined  as  a targeting  nvent  which  requires  the 
computation  of  a new  zero  iterate.  Thus  a retargeting  event  is  an  event 
in  which  the  current  nominal  state  when  integrated  forward  would  miss  the 
target  conditions  badly.  Such  an  event  would  be  the  broken-plane  correction. 
For  this  event  TRJTRY  stores  the  current  position  (and  possibly  the  target 
position)  in  the  ZDAT  array.  It  then  calls  ZERIT  for  the  computation  of 
the  massless-planets  initial  velocity  consistent  with  the  target  conditions. 
It  then  operates  identically  to  the  targeting  event. 

The  remaining  guidance  maneuver  is  the  insertion  event.  GIDANS  calls 
INSERS  for  the  computation  of  the  velocity  increment  Av  and  the  time 
interval  At  before  it  is  to  be  executed. 


Subroutines  TARGET  and  INSERS  signal  trouble  to  GIDANS  via  the  flag  KVIT. 

If  problems  are  encountered  during  their  operation  such  as  nonconverger.ee 
in  TARGET  or  no  insertions  possible  in  INSERS  KWIT  is  set  to  a 1 . Other- 
wise KWIT  " 0,  Upon  return  to  NCMNAL,  if  KWIT  " 1 the  current  case  will  be 
terminated  while  KWIT  * Q will  allow  the  current  case  to  continue. 


i 


GXDANS-2 


If  the  current  event  la  a compute-only  mode,  TRJTRY  now  sets  KWIT  ■ 0 (so 
that  the  program  will  continue  regardless  of  whether  the  correction  com- 
putationa  were  aucceaaful  or  not)  and  returns  to  NCS-iNAL.  However  if  the 
current  event  failed  (KWIT  •»  1)  and  va6  to  be  executed  (KMXQ  f 1)  C .DANS 
considers  this  a fatal  error  for  the  current  case  and  returns  with  KWIT  - 1. 

If  the  compute /execute  mode  is  compute-execute  later  (KMXQ  » 4)  as  is  the 
insertion  event,  GIDANS  now  sets  up  for  the  subsequent  execute-only  event. 

The  £v  computed  is  stored  in  the  DELV  array,  the  time  of  the  execution  is 
computed  ( t ^ » t^  + At  ) and  stored  in  the  TIMG  array,  and  the  KMXQ  flag 

is  get  to  a 2 (execute-only).  The  return  is  then  mad-*  to  NCf'NAD. 


3 

i 

i 


For  an  event  to  be  executed  at  the  current  time  (KMXQ  - 2,3)  GIDANS  new 
calls  EXCUTE  for  the  completion  of  that  task.. 

It  should  be  noted  that  for  ail  events  that  are  completed  at  this  time  the 
KUR  component  of  the  KTIK  array  are  set  equal  to  0 so  that  they  are  no 
longer  considered  in  determining  the  next  event  in  TRJTRY.  Only  in  the 
case  of  KMXQ  ■ 4 is  the  KTIM  flag  non-zero  upon  exit  from  GIDANS. 
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Flag  Definitions 

KTYP  » -1  Termination  event 
•=■  1 Targeting  event 

= 2 Retargeting  event 

’=  3 Orbit  insertion 

KJiXQ  «*  1 Compute  &v  only 

“ 2 Execute  only 

° 3 Compute  and  execute  Sj 

“ 4 Compute  but  execute  Av 

later 

Jjk’IT  * 0 Continue  case 

“ 1 Problem,  terminate  case 

KTIM  + 0 Guidance  event  to  be 

processed 

■ 0 Event  already  processed 


* 

f 

i 
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GUID-A 


SUBROUTINE 
PURPOSE 


GUZO 

COMPUTE  GUZO ANCE  MATRIX,  VARIATION  MATRIX,  ANO  TARGET 
CONDITION  COVARIANCE  MATRIX  AT  A MIOCOURSE  GUIDANCE 
EVENT  IN  THE  ERROR  ANALYSIS  PROGRAM 


CALLING  SEQUENCE!  CALL  GUIO 
SUBROUTINES  SUPPORTED t GUIOH 


SUBROUTINES  REQUIREO! 


LOCAL  SYMBOLS 


A 

BB 

BORS 

BOR1 

BDTS 

BOT1 

BS 

31 

0 

OUM1 

EGVCT 

EGVL 

ICS 

ICLS 


EPHEM 

ORB 


HYELS  JACOBI  MATIN  NTM 

PARTL  PSIM  STMPR  VARADA 


TWO-VARIABLE  B-PLANE  GUIOANCE  SUB-MATRIX  A 
TWO-VARIABLE  B-PLANE  GUIOANCE  SUB-MATRIX  B 
B DOT  R 

VALUE  OF  B DOT  R RETURNED  FROM  PARTL  (NOT 
USED) 

b OOT  T 

VALUE  OF  8 DOT  T RETURNED  FROM  PARTL  (NOT 
USED) 

MAGNITUDE  OF  B VECTOR 

VALUE  OF  B RETURNED  FROM  PARTL  ( NOT  USED) 
INTERMEDIATE  JULIAN  OATE 

ARRAY  OF  EIGENVECTORS  * 

ARRAY  OF  EIGENVECTORS 
ARRAY  OF  EIGENVALUES 
INTERMEDIATE  STORAGE  FOR  ICL2 
INTERMEDIATE  STORAGE  FOR  I CL 


INCMTS  INTERMEDIATE  STORAGE  FOR  INCMT 

IPR  INTERMEDIATE  STORAGE  FOR  IPRINT 

ISP  INTERMEDIATE  STORAGE  FOR  ISP2 

PBR  PARTIAL  OF  B DOT  R WITH  RESPECT  TO  STATE 

VECTOR 


PBT 


PARTIAL  OF  B DOT  T WITH  RESPECT  TO  STATE 
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VECTOR 

PHI 1 INTERMEDIATE  ARRAY 

PHI2  INTERMEDIATE  ARRAY 

PHI3  INTERMEDIATE  ARRAY 

RI  NOMINAL  SPACECRAFT  STATE  AT  GUIDANCE  EVENT 

RDM  TARGET  CONDITION  CORRELATION  MATRIX 

RTPS  INERTIAL  SPACECRAFT  STATE  AT  SPHERE  OF 
INFLUENCE 

SQP  TARGET  CONDITION  STANDARD  DEVIATIONS 

TCA  TRAJECTORY  TIME  AT  CLOSEST  APPROACH 

TSI  TRAJECTORY  TIKE  AT  SPHERE  QF  INFLUENCE 

XCA  INERTIAL  SPECECRAFT  STATE  AT  CLOSEST 

APPROACH 

XSIP  SPACECRAFT  ' >/'ON  RELATIVE  TU  tARGET 

PLANET  AT  SPHERE  OF  INFLUENCE 

XSIV  SPACECRAFT  VELOCITY  RELATIVE  TO  TARGET 
PLANET  AT  SPHERE  OF  INFLUENCE 


COMMON 

COMPUTEO/USEDI 

ICL2 

XP 

IPRINT 

ISPH 

ISP2 

NO 

COMMON 

COMPUTED* 

OELTM 

EM 

TRTMi 

TSOIl 

COMMON 

USED* 

ALNGTH 

BOR 

BDT 

B 

DATEJ 

DC 

DSI 

FNTM 

FOw 

F 

IBARY 

I CL 

IHYPi 

ISTMC 

NBOD 

NS 

NTMC 

NTP 

ONE 

PHI 

9 

RC 

RSI 

TH 

VSI 

ZERO 


v 
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CUID  Analysis 


Subroutine  CUID  Is  used  in  the  error  analysis  mode  to  compute  the  same 
quantities  which  subroutine  G’JXS  computes  In  the  simulation  mode.  Sub- 
routine GUIS  differs  from  GUIS  In  that  Instead  of  calling  KIMS  and  ASS2M 
as  does  GUIS,  subroutine  GUD  calls  KIM  and  VABADA.  In  addition,  he 
state  transition  and  variation  matrices  computed  In  GUID  are  referenced  to 
the  targeted  nominal  since  the  most  recent  nominal  is  not  defined  for  the 
error  analysis  mode.  These  differences  entail  only  minor  logic  differences 
In  the  flow  chart  for  GUID,  and  for  this  reason  no  GUID  flow  chart  Is  pre- 
sented. See  subroutine  GUIS  analysis  and  flow  chart  for  further  details. 


* 
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SUBROUTINE  GUIOH 

PURPOSE  CONTROL  EXECUTION  OF  A GUIDANCE  EVENT  IN  THE  ERROR 
ANALYSIS  PROGRAM 

CALLING  SEQUENCE!  CALL  GUIOH 

SUBROUTINES  SUPPORTED I ERR ANN 

SUBROUTINES  REQUIRED!  CORK  EL  OYNO  GUID  HYELS  JACOBI 

NAVM  PSIH  STRPR 

LOCAL  SYNBOLSt  ADA  VARIATION  MATRIX 

j AM  AX  INTERMEDIATE  VARIABLE  USCO  TO  FIND  MAXIMUM 

* EIGENVALUE  OF  VELOCITY  CORRECTION 

j COVARIANCE  MATRIX  <S  MATRIX! 

| CXSU1  STORAGE  FOR  CXSU  KNOWLEDGE  COVARIANCE 

CXSVi  STORAGE  FOR  CXSV  KNOWLEDGE  COVARIANCE 

CXU1  STORAGE  FOR  CXU  KNOWLEDGE  COVARIANCE 

CXV1  STORAGE  FOR  CXV  KNOWLEDGE  COVARIANCE 

CXXS1  STORAGE  FOR  CXXS  KNOWLEDGE  COVARIANCE 

DUM1  INTERMEDIATE  VARIABLE 

DUM  VECTOR  SUM  OF  UPDATE  AND  STATISTICAL 
VELOCITY  CORRECTIONS 

EGH  MAXIMUM  EIGENVALUE  OF  S MATRIX 

EtVCT  ARRAY  OF  EIGENVECTORS 

EGVL  ARRAY  OF  EIGENVALUES 

EXEC  EXECUTION  ERROR  COVARLANCE  MATRIX 

EXV  EXPECTEO  VALUE  OF  VELOCITY  CORRECTION 

GA  GUIDANCE  MATRIX 

GAP  INTERMEDIATE  ARRAY  EQUAL  JO  GA  TIMES  P 

ICOOC  INTERNAL  CONTROL  FLAG 

ICOOE2  INTERNAL  CONTROL  FLAG 

IGP  KIOCOURSE  GUIDANCE  POLICY  COOE 
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amn-B 


I OP  EXECUTION  ERROR  COOE 

ISPHC  TEMPORARY  STORAGE  FOR  IS PM 

MAP  INDEX  OF  MAXIMUM  EIGENVALUE  OF  S 

OUT  SPACECRAFT  VELOCITY  RELATIVE  TO  TARGET 

PLANET  IN  PLANETO-CENTRXC  EQUATORIAL 
COORDINATES 

PS1  STORAGE  FOR  PS  KNOWLEDGE  COVARIANCE 

Pi  STORAGE  FOR  P KNOWLEDGE  COVARIANCE 

RF  NOMINAL  TRAJECTORY  STATE  AT  GUIDANCE  EVENT 

RMO  MAGNITUDE  OF  STATISTICAL  DELTA-V 

ROW  INTERMEDIATE  VECTOR 

SDV  STANDARD  DEVIATION  OF  MAGNITUDE  OF 

STATISTICAL  DELTA- V 

SOP  INTERMEDIATE  VECTOR 

TRS  TRACE  OF  S MATRIX 

U INTERMEDIATE  VARIABLE 

VEIG  MATRIX  TO  BE  OIAGONALIZED 

Z INTERMEDIATE  ARRAY 


COMMON  COMPUTE  DAI  SCO  1 

CXSUG 

cxsu 

CXSVG 

CXSV 

CXUG 

CXU 

CXVG 

CXV 

CXXSG 

CXXS 

ISPH 

NGE 

PG 

PSG 

PS 

P 

TG 

XG 

COMMON  COMPUTED* 

OELTH 

TRTM1 

XI 

COMMON  USED* 

FOP 

FOV 

ICDQ3 

ICDT3 

IEIG 

V 

IHYP1 

ISTMC 

NDIM1 

NOIH2 

NDIM3 

ONE 

Q 

SIGALP 

SIGBET 

SIGPRO 

SIGRES 

TWO 

uo 

VO 

XF 

ZERO 
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CUUSt  Analysis 


Subroutine  GUH5M  1b  the  executive  guidance  subroutine  in  the  error  analysis 
program.  In  addition  to  controlling  the  computational  flow  for  all  types 
of  g«<<lanf»  events,  QJXDM  also  performs  many  of  the  required  guidance 

computations  Itself. 

Before  considering  each  type  of  guidance  event,  the  treatment  of  a general 
guidance  event  will  be  discussed.  Let  t ^ be  the  time  at  which  the  guidance 

event  occurs.  __Be f ore  any  guidance  event  , can  be  executed  the  targeted 
nominal  state  X”,  knowledge  covariance  ?C  , and  control  covariance  P~ 

3 i ej 

must  all  be  available,  where  ( ) Indicates  values  immediately  before 

the  event,  the  first  two  quantities  a'  e available  prior  to  entering 
GUXDH.  However,  GUIDM  controls  the  pri  gar  Ion  of  the  control  covariance 
over  the  interval  [ t ^ ^ , t J , where  t^  denotes  the  time  of  the  previous 

guidance  event. 


The  next  step  In  the  treatment  of  a general  guidance  event  is  concerned 
with  the  computation  of  the  companded  velocity  correction  and  the  execution 
error  covariance.  In  the  error  analysis  program  a non- statistical  velocity 
correction  la  coeluted  whenever  the  nominal  target  conditions  are  changed; 
otherwise,  only  a statistical  velocity  correction  can  be  computed.  The 

commanded  velocity  correction  AV  is  then  used  to  compute  the  execution 

J 

error  covariance  matrix  Q . A summary  of  the  execution  error  model  and 

the  equations  used  to  compute  Q can  be  found  in  the  subroutine  QCdXP 
analysis  section.  ^ 

The  last  step  la  concerned  with  the  updating  of  required  quantities  prior 
to  returning  to  the  basic  cycle.  An  assumption  underlying  the  modeled 
guidance  process  is  that  the  targeted  nominal  is  always  updated  by  the 
eosmandad  velocity  correction.  In  the  error  analysis  program  only  the 
con-statistical  component  is  used  to  perform  the  state  update  and  la 

A 

-indlettfeed  by  the  variable  AV  . Thus,  the  targeted  nominal  state 

■ 3 

immediately  following  the  guidance  event  is  given  by 


X + « X 

i 


GUIM-2 


The  knowledge 


covariance  is  updated  using  the  equation 


if  an  impulsive  thrust  model  Is  assumed.  If  the  thrust  is  modeled  as  a 
series  of  impulses , then  an  effective  execution  error  covariance  Qe^ 

computed  and  the  knowledge  covariance  is  updated  using  the  equation 


p m v + Q 
^ ef f * 


In  either  case  the  control  covariance  is  updated  simply  by  setting 


_ + _ + 

»c  " 

J J 


This  equation  1b  a direct  consequence  of  the  assumption  that  the  targeted 
nominal  state  is  always  updated  at  a guidance  event. 

A "compute  only”  option  is  available  in  GUIDM  In  which  all  of  the  ( )+ 

quantities  will  still  be  computed  and  printed.  _Hovever,  the  state  and  all 
covariances  are  then  reset  to  their  forcer  ( ) values  prior  to  returning 

to  the  basic  cycle. 


Each  specific  type  of  guidance  event  Involves  the  computation  of  other 
quantities  not  discussed  above.  These  will  be  covered  in  the  following 
discussion  of  specific  guidance  events. 

1.  Midcourse  and  Biased  Aimpolnt  Guidance 


Linear  midcourse  guidance  policies  have  form 


where  the  subscript  H Indicates  that  this  is  the  velocity  correction 
required  to  cull  out  deviations  from  the  nominal  target  state.  This 
notation  is  required  to  differentiate  between  this  type  of  velocity 
k correction  and  velocity  corrections  required  to  achle  /e  an  altered  target 


GUUM-3 


state.  Linear  mid course  guidance  policies  are  discussed  in  store  detail 
in  the  subroutine  GUIS  analysis  section. 


Subroutine  GUIDK  calls  GO  ID  to  compute  the  guidance  matrix,  1^,  and  the 

target  condition  covariance  limediately  prior  to  the  guidance  event, 

, and  then  uses  to  compute  the  velocity  correction  covariance  S^, 

which  is  defined  as 


!j  - E *1*  ] • 


and  is  given  by  the  equation 


S1  - rj  ^ r/ 


-This  equation  assumes  that  an  optimal  estimation  algorithm  is  employed  in 
the  navigation  process,  since  the  derivation  of  this  equation  requires  the 
orthogonality  of  the  estimate  and  the  estimation  error. 


In  the  error  analysis  program  AV„  is  never  available  since  no  estimates 

J +> 

dXj  are  ever  generated.  Only  the  ensemble  statistics  of  $X^  are  available 
which  only  a statistical  or  effective  velocity  correction  "E  [av  1 " 

i 


can  be  computed.  In  the  STEAP  error  analysis  program  this  effective  velocity 
correction  is  assumed  to  have  fora 


The  magnitude  p 


is  given  bv  the  Hoffman-Young  approximation 


»(*-»  \ 
a wrJ 


I 


t 


- '^L 


cuirat-4 


where 


A - trace  « X^  + X^  + X^* 

B - X^Xj  + X^Xj  + ^2^3* 


and  X^,  X2,  X^  are  the  eigenvalues  of  S^. 

•velocity  correction  is  assumed  to  coincide 
lng  to  the  maxlnam  eigenvalue  of  S^.  This 


The  direction  of  the  effective 


with  the  eigenvector  correspond- 
eige tweeter  is  denoted  by  a^.  An 


alternate  model  assumes  the  direction  colncldea  with  the  vector  (X^,  X^,  A ^). 


If  planetary  quarantlve  constraints  must  be  satisfied  at  a midcourse  correction, 
GUIDM  calls  BIAIM  to  compute  the  new  a imp  o In  t ^ and  the  (non- statistical) 

bias  velocity  correction  . All  computations  in  BIAIM  are  based  on  linear 

bj 

guidance  theory.  However,  an  option  is  available  in  GLTDM  to  recompute 
£y_  , but  not  n t using  nonlinear  techniques.  This  option  is  recommended 
1 ^ 

If  a biased  almpolnt  guidance  event  occurs  at  t^  m injection  time.  It 

should  also  be  noted  that  is  set  to  zero  if  t^  - injection  time  since 

it  is  assumed  that  the  injection  covariance  does  not  change  for  small 
changes  in  injection  velocity. 


After  the  updated  control  covariance  P has  been  computed,  the  target 

+ CJ 

condition  covariance  matrix  following  the  guidance  correction  is  com- 
puted using  the  equation 

A-  + T 

c ^ ’ j 


where  variation  matrix  ^ has  been  previously  computed  in  subroutine  GOID. 


2.  Ha-targeting 

In  the  error  analysis  (and  simulation)  program  a re-targeting  event 
is  defined  to  be  the  computation  of  a velocity  correction  required  to 

achieve  a new  set  of  target  conditions  using  nonlinear  techniques.  Since 
the  original  targeted  nominal  will  be  used  as  the  zero-th  iterate  in  the 
re-targeting  process,  the  new  target  conditions  must  be  close  enough  to  the 
original  nominal  target  condition  to  ensure  a cover gent  process. 
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1C  should  be  noted  that  after  a re-targeting  evert  the  new  target  condi- 
tion* are  henceforth  treated  as  the  nominal  target  conditions. 


3.  Orbital  ineertion 


An  orbital  insertion  event  la  divided  into  a decision  event  and  an 
execution  event.  At  a decision  event  the  orbital  insertion  velocity 
correction  AV^  and  the  time  interval  At  separating  decision  and  execution 

are  computed  baaed  on  the  targeted  nominal  state  at  t^.  The  relevant 


equations  pan  be  found  in  the  subroutine  ORPINS  analysis  section  fur  co- 
planer  orbital  insertion;  in  NjlPIUS,  for  n on-planar  orbital  insertion. 
Before  returning  to  the  basic  cycle,  GUXDM  schedules  the  orbital  insertion 
execution  event  to  occur  at  t.  + At  and  re-orders  the  necessary  event 


arrays  accordingly. 


At  an  orbital  Insertion  execution  evejjt  the  targeted  nominal  state  is  up- 
dated the  previously  computed  AYp^.  la  addition,  the  planeto-centxic 

equatorial  components  of  AV^  and  the  nominal  spacecraft  cartesian  and 

orbital  element  state  following  the  insertion  maneuver  are  computed. 


4.  Externally-supplied  velocity  correction 

At  this  type  of  guidance  event  the  targeted  nominal  state  Is  simply 
updated  using  the  externally-supplied  velocity  correction  A^py. 


Because  of  the  complexity  of  the  GUIDM  flow  chart,  a simplified  f lev  chart 
depicting  the  main  elements  of  the  GUISK  structure  precedes  the  complete 
GUIDM  flow  chart. 


WB?>»(V«WVHTra>p.' 


QUICK  Flow  Chart 


ENTER 


Save  IS  PH  and  set  IC0DE2  **  1. 


IC0DE  - ? 


A 


GUHS4-9 


<v. 


GUUW-12 


1GUID(3 ,11) 


Set  IX  - 1 and  JX  - II. 
Set  XIN  to  state  at  t.. 


write:  Bias  velocity  correction  will 
be  recomputed  using  nonlinear  guidance 


IGUID(1,II) 


Compute  Julian  date  corresponding 
and  set  XG0  “ 1. 


Compute  position  and 
velocity  of  target 
planet  at  the  specified 
time. 


Define  target  variables 
XTAR,  LX TAR,  LNPAR, 
and  TGT3  for  nonlinear 
2VBP  guidance. 


Define  target  variables 
XTAR,  LX TAR,  LXPAR, 
and  TGT3  for  nonlinear 
3VBP  guidance. 


. \ 

L 

< I B9 

lI> 

1 

\ 

r 

Define  target  variables 
XTAR,  IX TAR,  LNPAR, 
and  TGT3  for  nonlinear 
FTA  guidance. 

99R0 
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Call  H0KLXK  to  compute 
nonlinear  bias  velocity 
correction.  Return  XDELV. 

, 

Set  AVpp  to  XBELV . 

Ccmput?  magnitude.  Write  out 
A$np  and  its  magnitude. 


Write:  Nonlinear  guidance 
failed.  lineal  guidance 
will  be  employed. 


injection  time? 


HO 

t 


Compute  Q using 

+ j"*  [a»Sj  ] ”• 

Set  liLET  - 2. 


Write  out  correlation  matrix 
and  standard  deviations 
associated  with 


I SET  - ? 


Set  to  zero. 


1 


vYfTj*  . 


Gum-14 


Store  PSAVE  array 
In  the  PI  array  so 
that  the  PI  array 
contains  the  know- 
ledge covariance 
Juat  before  the 
guidance  exent. 


V 


^ . 


9761 
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Set  XXIN  to  state  at  t.. 


Set  DELPX  to 


+ ^ [afSj  ] "• 


Define  Julian  date  at  t,. 


Set  INPX  ■ 2 and  store  impulse 
series  execution  error  variances  in 
the  DUMMYQ  array. 


Call  EXCUT  to  compute  the  effective 
execution  error  covariance  matrix 
corresponding  to  the  impulse  series. 
Return  QK. 


Restore  single  impulse  execution 
error  variances  into  the  DUMMYQ  array. 


Store  PI  array  in  the  PSAVE  array. 
Update  knowledge  covariance  by  adding 
effective  Qj  to  the  PI  array. 
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PROGRAM  GUZS 

PURPOSE  ' COMPUTE  GUIOANCE  MATRIX,  VARIATION  HATRIX,  ANO  TARGET 
CONDITION  COVARIANCE  HATRIX  AT  A MXOCOURSE  GUIOANCE 
EVENT  IN  THE  SIMULATION  PROGRAM 

SUBROUTINES  SUPPORTED  GUISIH 

SUBROUTINES  REOUIREOI  EPHEH  HYELS  JACOBI  MATIN  NTMS 

ORB  PARTL  PSIH  STMPR  VARSIH 

LOCAL  SYMBOLS  A TWO-VARIABLE  B-PLANE  GUIOANCE  SUB-MATRIX  A 

BB  TWO-VARIABLE  B-PLANE  GUIOANCE  SUB-MATRIX  B 

BORl  VALUE  OF  B OOT  R RETURNED  FROM  PARTL  (NOT 
USED) 

BOT1  VALUE  OF  B OOT  T RETURNED  FROM  PARTL  (NOT 
USEO) 

81  MAGNITUDE  OF  B VECTOR  RETURNED  FROM  PARTL 

(NOT  USEO) 

OUM1  ARRAY  OF  EIGENVECTORS 

DUH  INTERMEDIATE  ARRAY 

EGVCT  ARRAY  OF  EIGENVECTORS 

EGVL  ARRAY  OF  EIGENVALUES 

ICLS  INTERMEDIATE  STORAGE  FOR  ICL 

ICS  INTERMEDIATE  STORAGE  FOR  ICL2 

IPR  INTERMEDIATE  STORAGE  FOR  IPRINT 

ISPS  INTERMEDIATE  STORAGE  FOR  ISP2 

PBR  PARTIAL  OF  B OOT  R WITH  RESPECT  TO  STATE 
VECTOR 

PBT  PARTIAL  OF  B OOT  1 WITH  RESPECT  TO  STATE 
VECTOR 

PMU  INTERMEDIATE  ARRAY 

PH 1 2 INTERMEDIATE  ARRAY 

PHI3  INTERMEDIATE  ARRAY 


1 
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Rli  MOST  RECENT  NOMINAL  SPACECRAFT  STATE  AT 

GUIDANCE  EVENT 

RI  TARGETED  NOMINAL  SPACECRAFT  STATE  AT 

GUIDANCE  EVENT 

RMCA  SPACECRAFT  OISTANCE  FROM  TARGET  PLANET  AT 
CLOSEST  APPROACH 

RHSI  SPACECRAFT  DISTANCE  FROM  TARGET  PLANET  AT 
SPHERE  OF  INFLUENCE 

ROM  TARGET  CONDITION  CORRELATION  MATRIX 

RTPS  INERTIAL  SPACECRAFT  STATE  AT  SPHERE  OF  * 

INFLUENCE 

SQP  TARGET  CONDITION  STANOARO  DEVIATIONS 

TCA  TRAJECTORY  TIME  AT  CLOSEST  APPROACH 

TSI  TRAJECTORY  TIME  AT  SPHERE  OF  IJff'LUE.iCE 

VHCA  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 
TO  TARGET  PLANET  AT  CLOSEST  APPROACH 

VMSI  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 
TO  TARGET  PLANET  AT  SPHERE  OF  INFLUENCE 

XCA  SPACECRAFT  VELOCITY  RELATIVE  TO  TAR6ET 

PLANET  AT  SPHERE  OF  INFLUENCE 


COMMON 

COMPUTED /USED! 

EM 

ICL2 

IPRINT 

ISPH 

ISP2 

NO 

XP 

COMMON 

COMPUTED t 

OELTM 

TRTM1 

COMMON 

USEDl 

ALNGTH 

BDR 

BDT 

B 

DATEJ 

DC 

DSI 

FNTM 

FOV 

F 

IBART 

IHYPI 

ISOI1 

ISTMC 

NBOO 

NB 

NGE 

NOE 

NTHC 

NTP 

ONE 

PHI 

P 

RC 

RSI 

TM 

VSI 

ZERO 
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GUIS  Analysis 


Subroutine  GUIS  is  called  at  a midcourse  guidance  event  at  t^  in  the 

simulation  mode  to  compute  three  primary  quantities  for  the  selected  mid- 
course  guidance  policy.  These  three  quantities  are  the  variation  matrix 


V 


J 


* 


and  the  guidance  matrix 


r 

j 


Three  midcourse  guidance  policies  are 


available:  f ixed-time-of-arrival  (FTA) , two-variable  B- plane  (2VBP) , and 
three-variable  B-plane  (3VBP).  All  are  linear  impulsive  guidance  policies 

having  form 


Av,  - fix 

J j i 


.A  A 

where  /\V  is  the  commanded  velocity  correction,  and  $X  is  the  estimate 
j J 

of  the  spacecraft  position/velocity  deviation  from  the  targeted  nominal. 

The  relevant  equations  for  each  guidance  policy  will  be  summarized  below. 


The  variation  matrix  T)  for  FTA  guidance  relates  deviations  in  spacecraft 


state  at 


'J 


J 

to  position  deviations  at  time  of  closest  approach  t 


CA' 


and 


is  given  by 


where 


[»i  i 92] 


”)  - k i »2] 

is  the  upper  half  of  the  state  transition  matrix  $(t 


CA’ 


The  guidance  matrix  for  FTA  guidance  is  given  by 


ri  ■ 


[- 


-1  i 

92  : 


The  variation  matrix  for  3VBP  guidance  relates  deviations  in  spacecraft 
state  at  t^  to  deviations  in  B*T,  B*R,  and  t^ , where  tgI  is  the  time 

at  which  the  sphere  of  influence  is  pierced.  Unlike  the  variation  matrix 
for  FTA  guidance,  which  car  be  computed  analytically  or  by  numerical  differ- 
encing, the  3VBP  variatipn  matrix  must  always  be  computed  using  numerical 
differencing  since  no  good  analytical  formulas  are  available  which  relate 

deviations  in  spacecraft  state  at  t to  deviations  in  t If  the 

J SI 

variation  matrix  is  written  as 


T)' 

J 


then  the  guidance  matrix  for  3VBP  guidance  is  given  by 

rs  - [-»2‘l,\i  -1]  • 
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state  at 

t to  deviations  in 

B.T  and 

B*a 

M*  (tSI. 

where  M 
deviations 

is  an  analytically  computed  matrix  : 
to  spacecraft  state  deviations  at 

state  transition  matrix  over  | 

tj'tsi]  * 

if 

n - 

j 

M-l 

‘SI 


ig  B*T  and  B*R 
and  ^(tSI,t()  is  the 

la  written  as 


then  the  guidance  matrix  for  2VBP  guidance  is  given  by 


r 

i 


T T -1  i t T -1 
-B  (BB  ) A | -B  (BB  ) B 


All  state  transition  matrices  and,  hence,  all  variation  matrices  used  by 
the  above  three  guidance  policies  are  referenced  to  the  most  recent  nominal 
trajectory  for  improved  numerical  accuracy. 

Once  the  variation  matrix  is  available  for  any  of  the  above  guidance 

policies,  the  target  condition  covariance  matrix  can  be  computed  using 

T 

V - V ? 7] 

i j cj  i 

where  P£  is  the  control  covariance  matrix  immediately  prior  to  the 
guidance  event. 
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GUIS  Flow  Chart 


ENTER 


IGP  - ? 


3 /v/  3VBP 


i~FTA 


Call  NIMS  to  integrate  targeted 
nominal  to  final  time  t„.  and  to 

define  closest  approa  h conditions. 


Was  SOI  encountered 


Call  PARTI  to  compute  partials 
of  B’T  and  B*R  with  respect 
to  state  at  t Compute 

M matrix.  * 


Write:  Spl  not  encountered  on  tar- 
geted nominal.  Returning  to  basic 
cycle . 


Compute  time 


and  position 


and  velocity  magnitudes  at 
closest  approach. 


Write  out  closest  approach  con- 
ditions ior  targeted  nominal. 
Write  out  M matrix. 


RETURN 


D<  fine  variables  ATRANS,  VINF, 
and  TKPB  required  for  biased 
aim point  guidance. 
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Call  NTMS  to  integrate  most 
recent  nominal  to  final  time  t. 

1 

1 , 

Set  most  recent  nom- 

f  1 

inal  to  targeted 

and  to  define  closest  approach 

nominal  at  t,  . 

conditions . 

L f 

Was  SOI  encountered 
over  ft,,  t , 1 ? 


Write:  S0I  not  encountered  on 
most  recent  nominal . Return- 
ing to  basic  cycle. 


Call  0RB  and  EPKEM  to  compute 
position  and  velocity  compon- 
ents of  target  planet  at 
closest  approach  on  most  recent 
nominal . 


RETURN 


Compute  inertial  ecliptic  pos- 
ition and  velocity  components  of 
spacecraft  at  closest  approach 
on  most  recent  nominal. 


Write  out  closest  approach  conditions 
on  most  recent  nominal. 


Call  PSIM  to  compute  state  transition 

matrix  partitions  over  ft.,  t 1 

L j CAj 

on  most  recent  nominal.  Call  SUiPR 
to  write  out  these  partitions.  Set 
IS  PH  - 1 


Compute  variation  matrix  T) 
FTA  guidance  policy. 


* 
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NfcM  RJ-G? 


Call  N7MS  ti  integrate  most 
recent  ncmln  il  to  final  time 
and  to  diilne  S0I  conditions. 


I Set  moat  recent  nominal 
| equal  to  targeted  non- 
Inal  at  t,. 


Was  SJ)I  ncounrered 

OVer  S'  ] 7 


Write:  S0I  not  encountered 
oq  most  recent  nominal. 
Returning  to  basic  cycle. 


Call  0RB  and  EPHEM  to  compute 
position  and  velocity  components 
of  target  planet  at  S(9I  on  most 
recent  nominal.  


RETURN 


Compute  inertial  ecliptic  position 
and  velocity  components  of  space- 
craft at  S0I  on  most  recent  nominal 


Write  out  S^I  conditions  on  most 
recent  nominal. 


IGP-3? 


Call  VARS IM  to  compute  variation  matrix 
yj  for  3VBP  guidance  policy. 


1SPK-0? 


RETURN 


GUIS- a 


EBTUBH 


KETtmU 


GUIS IX- A 


PROGRAM  GUISIH 

PURPOSE  CONTROL  EXECUTION  OF  GUIDANCE  EVENT  IN  THE  SIMULATION 
PROGRAM 

SUBROUTINES  SUPPORTED*  SXMULL 

SUBROUTINES  REQUIREO*  CORREL  OYNOS  GUIS  HYELS  JACOBI 

NAVH  PSIK  STHPR 

LOCAL  SYMBOLS*  ADA  VARIATION  MATRIX 

AKi  ACTUAL  RESOLUTION  ERROR 

AL1  ACTUAL  ERROR  IN  POINTING  ANGLE  ALPHA 

BT1  ACTUAL  ERROR  IN  POINTING  ANGLE  BETA 

CXSU1  STORAGE  FOR  CxSU  XNonLEOCE  COVARIANCE 

CXSV1  STORAGE  FOR  CXSV  KNOWLEDGE  COVARIANCE 

CXU1  STORAGE  FOR  CXU  KNOWLEDGE  COVARIANCE 

CXV1  STORAGE  FOR  CXV  KNOWLEDGE  COVARIANCE 

CXXS1  STORAGE  FOR  CXXS  KNOWLEDGE  COVARIANCE 

OELX  ESTIMATED  STATE  DEVIATION  FROM  TARGETED 

NOMINAL  TRAJECTORY 

DUMi  INTERMEDIATE  VARIABLE 

DUMJJ  ARRAY  OF  EIGENVECTORS 

OVCN  MAGNITUDE  OF  COMMANDED  MIDCOURSE  VELOCITY 

CORRECTION 

DVC  COHHANOEO  MXOCOURSE  VELOCITY  CORRECTION 

OVE  'ERROR  IN  MIDCOURSE  VELOCITY  CORRECTION 
DUE  TO  NAVIGATION  UNCERTAINTY 

OV  PERFECT  MIDCOURSE  VELOCITY  CORRECTION 

OX  ACTUAL  STATE  DEVIATION  FROM  TA**ETEO 

NOMINAL  TRAJECTORY 

EGVCT  ARRAY  OF  EIGENVECTORS 

EGVL  ARRAY  OF  EIGENVALUES 

EXECUTION  ERROR  COVARIANCE  MATRIX 


EXEC 
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EXM  MAGNITUQE  OF  UPDATE  VELOCITY  CORRECTION 

GAP  INTERHEOIATE  ARRAY  EQUAL  TO  GA  TIKES  P 

GA  GUIDANCE  MATRIX 

ICOOE2  INTERNAL  CONTROL  FLAG 

IGP  MIOCOURSE  GUIDANCE  POLICY  CODE 

OUT  SPACECRAFT  VELOCITY  RELATIVE  TO  TARGET 

PLANET  IN  PLANETO-CENTRIC  EQUATORIAL 
COORDINATES 

PS1  STORAGE  FOR  PS  KNOWLEDGE  COVARIANCE 

PI  STORAGE  FOR  P KNOWLEDGE  COVARIANCE 

RF1  MOST  RECENT  NOMINAL  SPACECRAFT  STATE  AT 

GUIDANCE  EVENT 

RF  TARGETED  NOMINAL  SPACECRAFT  STATE  AT 

GUIDANCE  EVENT 

ROW  INTERMEDIATE  VECTOR 

SQP  INTERMEDIATE  VECTOR 

SI  ACTUAL  PROPORTIONALITY  ERROR 

VEIG  MATRIX  TO  BE  DIAGONALIZED 

Z INTERMEDIATE  ARRAY 


COMMON 

COMPUTED/USED  1 

ADEVX 

CXSUG 

CXSU 

CXSVG 

cxsv 

CXUG 

cxu 

CXVG 

CXV 

CXXSG 

cxxs 

EDEVX 

ICOOE 

NGE 

PG 

PSG 

PS 

P 

RI1 

TG 

XF1 

XG 

COMMON 

COMPUTEO* 

OELTM 

TRTM1 

XII 

XI 

COMMON 

USED* 

AALP 

ABET 

AQEVXS 

AP<0 

ARES 

EDEVXS 

FOP 

FOV 

IC0T3 

IEIG 

IMYP1 

ISPH 

ISTNC 

NOIMI 

NDIM2 

N0IH3 

Q 

SIGALP 

SIGBET 

SIGPRO 

SIGRES 

TEVN 

UQ 

VO 

w 

XF 

XSL 

ZERO 
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CUISZM  Analysis 

Subroutine  GUIS1M  is  the  • xecutlve  guidance  subroutine  In  the  a Inf- 
lation program.  In  addition  ti  controlling  the  computational  flow  for 
all  typea  of  guidance  events,  < lilSIM  also  performs  many  of  the  required 
guidance  computations  Itself. 


Before  considering  each  ty 
general  guidance  event  will  be 

the  guidance  event  occurs.  Bel 
targeted  nominal  state  X , moat 

deviation  $X^  from  moat  recent 

moat  recent  nominal,  knowledge 

must  all  be  available,  where  ( 
event.  Only  the  control  covarl 
GUIS IK.  The  propagation  of  the 
[tj  t where  denotes 

la  performed  within  C3JISIM. 


pe  of  guidance  event,  the  treatment  of  a 
discussed.  Let  t ^ be  the  time  at  which 

ore  any  guidance  e verity  can  be  executed  the 
: recent  nominal  state  X^,  estimated  state 

nominal,  actual  state  deviation  from 

covariance  P , and  control  covariance  P 

KJ  CJ 

) Indicates  values  immediately  before  the 
. ance  is  not  available  prior  to  entering 
; control  covariance  over  the  interval 
the  time  of  the  previous  guidance  event. 


The  next  step  in  the  treatment  of  a general  guidance  event  is  con- 
cerned with  the  computation  of  the  commanded  velocity  correction,  execution 
error  covariance,  actual  execution  error,  and  actual  velocity  correction. 

In  the  simulation  program  a nor -statistical  commanded  velocity  correction 
can  always  be  computed.  This  c xnmanded  velocity  correction  AV  1b  used 

W«w  J 


to  compute  the  execution  error  zovarlance  matrix  and  the  actual  execu- 
tion error  5AV,.  A summary  of  the  execution  error  model  and  the  equations 
used  to  compute  and  6AV^  car  be  found  in  the  subroutine  QCpMP  analysis 
section.  The  actual  velocity  correction  is  then  computed  using  the  equation 


AV^  - AVj  + 5Aff 

The  last  step  Is  concerned  with  the  updating  of  required  quantities 
prior  to  returning  to  the  basic  cycle.  An  assumption  underlying  the 
mo>  aled  guidance  process  Is  that  the  targeted  nominal  is  always  updated 
by  the  commanded  velocity  correction.  In  the  simulation  program  the 
update  velocity  correction  A^p  is  always  Identical  to  the  commanded 

A J 

velocity  correction  AV^.  This  Is  In  contrast  to  the  error  analysis  program 
where  A?in>  la  equated  with  the  non- statistical  component  of  AV  . The 
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V 


GUIS  IK- 2 


most  recent  and  targeted  nominal  states  Immediately  following  the  guidance 
avast  era  updated  using  the  equations 


X“  + &X~  + 


sA 


UP , 


X4-- x+ 

i J 


The  actual  and  estimated  state  deviations  from  the  most  recent  nominal  era 
given  by 


~+  A_ 

axj  - sx^  - ix^  + 


o 

"iAV" 


5X  - 0 

J 

The  previous  4 equations  assume  an  impulsive  thrust  model.  If, 
Instead,  the  thrust  is  modeled  as  an  Impulse  series,  then  an  effective 
estimated  state  &e££  and  an  effective  actual  state  X ^ are  computed. 

The  equations  used  to  compute  these  effective  states  are  8 unsnarl red  in 
the  subroutine  PULSEX  analysis  section.  The  previous  update  equations 
are  then  replaced  by  the  following  equations 


A 

X4  - X .. 
j eft 


- xT 


sx;  - x ..  - x 

J eff  eff 


A+ 

6Xj  - 0 

The  know ledge  covariance  is  updated  using  the  equation 


?*  - P"  + 
*1 


_ _ L __ 

0 I Qj 
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if  an  impulsive  thrust  model  is  assumed.  If  the  thrust  is  modeled  as  a 
series  of  impulses,  then  an  effective  execution  error  covariance  is 

computed  and  the  knowledge  covariance  la  updated  using  the  equation 


- P„ 


+ Q 


eff 


In  either  case  the  control  covariance  is  updated  simply  by  setting 


This  equation  is  a direct  consequence  of  the  assumption  that  the  targeted 
nominal  is  always  updated  at  a guidance  event. 

+ A "compute  only"  option  is  available  in  GUISIM  in  which  all  of  the 
( ) quantities  will  still  he  computed  and  printed.  However,  states* 
deviations , and  covariances  are  then  reset  to  their  former  ( ) values 
prior  to  returning  to  the  basic  cycle. 

Each  specific  type  of  guidance  event  Involves  the  computation  of 
other  quantities  not  discussed  above.  These  will  be  covered  in  the 
following  discussion  of  specific  guidance  events. 

1.  Midcourse  and  biased  almpolnt  guidance. 

Linear  midcourse  guidance  policies  have  form 


r ax 

i i 


where  tne  subscript  N indicates  that  this  is  the  velocity  correction 
required  to  null  out  deviations  from  the  nominal  target  state.  This 
notation  is  required  to  differentiate  between  this  type  of  velocity 
correction  and  velocity  corrections  required  to  achieve  an  altered 
target  state.  Linear  midcout6e  guidance  policies  are  discussed  in 
more  detail  in  the  subroutine  GUIS  analysis  section. 

Subroutine  GUXSXK  calls  GUIS  to  compute  Che  guidance  matrix,  and 

the  target  condition  covariance  immediately  prior  to  the  guidance  event, 

W“,  and  then  uaea  to  compute  the  velocity  cofrectlon  covariance  S^,  which 

is  defined  aa 


GUXSIM-d 


and  li  given  by  the  equation 

SJ  ■ ^ r/ 

This  equation  assumes  that  an  optimal  estimation  algorithm  1-  employed 
in  the  navigation  process,  since  the  derivation  of  this  equation  requires 
the  orthogonality  of  the  estimate  and  the  estimation  error. 

A 

Since  state  estimates  iX4  are  generated  in  the  simulation  program; 

A J 

an  actual  AV„  can  always  be  computed.  This  is  in  contrast  to  the  error 

J 

analysis  program  where  only  a statistical  or  effective  AV  can  be  computed. 

J 

The  perfect  velocity  correction  AV4,  defined  as  the  velocity  correction 

required  to  null  out  actual  deviations  from  the  nominal  target  state,  is 
also  computed  for  midcourse  guidance  events.  Assuming  linear  guidance 
theory,  the  perfect  velocity  correction  is  given  by 


AV 


1 


'"j 


where  5X4  is  the  actual  deviation  from  the  targeted  nominal.  An  option 
■J  ^ 

is  also  available  in  GUISIM  for  re-computing  AV^,  using  nonlinear  techniques. 

However,  it  should  be  noted  that  the  nonlinear  two-variable  B-plane  guidance 
policy,  unlike  the  corresponding  linear  policy,  constrains  the  z-compooent 
of  AV„  to  be  zero. 

"j 


If  planetary  quarantine  constraints  must  be  satisfied  at  a midcourae 
correction,  GPJ1SIK  calls  BLAIM  to  compute  the  new  aimpoint  n and  the 


bias,  velocity  correction.  AV 


B 


J 

All  computations  in  BIAIM  are  based  on 


but  not  using  non- 


linear guidance  theory.  However,  an  option  is  available  in  GTISIM  to  re- 
compute the  total  velocity  correction  AV„  + AV  , 

linear  techniques.  This  option  is  recommended  it  a biased  aimpoint^ guidance 
event  occurs  at  t 4 “ injection  time.  It  should  also  be  noted  that  la 

set  to  zero  If  * injection  time  since  it  is  assumed  bust  the  injection 


GUISXH-5 


covariance  does  not  change  for  small  changes  in  Injection  velocity. 

After  the  updated  control  covariance  P+  ha*  been  computed,  the 

+ ^ 

target  condition  covariance  matrix  following  the  guidance  correction 
is  computed  using  the  aquation 


*f  + T 

yj  ' 'i  % 'i 


vhere  variation  matrix  ^ has  been  previously  computed  in  subroutine 


GUIS. 


2.  Re-targeting. 

In  the  simulation  (and  error  analysis)  program  a re- targeting  event 
is  defined  to  be  the  computation  of  a velocity  correction  AvR^  required 

to  achieve  a new  set  of  target  conditions  using  nonlinear  techniques. 
Since  the  state  estimate  X(  + 6X(  is  used  as  the  c^ro-th  iterate  in 

the  re- targeting  process,  the  new  target  conditions  must  be  close  enough 
to  the  original  nominal  target  conditions  to  ensure  n convergent  process. 

* 

It  should  be  noted  that  after  a re-targeting  event  the  new  target 
conditions  are  henceforth  treated  as  the  nominal  target  conditions. 

3.  Orbital  Insertion. 


An  orbital  insertion  event  is  divided  into  a decision  event  and  an  execution 

A 

event.  At  a decision  event  tie  orbital  insertion  velocity  correction  AV^ 
and  the  time  interval  At  s parating  decision  and  execution  are  computed 


based  on  the  state  estimate 


x"  + 

j 


The  relevant  equations  can  be 


found  in  the  subroutine  C^PIb'S  analysis  section  for  cpp’.anar  orbital 
insertion;  in  N0PINS,  for  non-planar  orbital  insertion.  Before  returning 
to  the  basic  cycle,  GUISIM  schedules  the  orbital  insertion  execution  event 
to  occur  at  tj  + At  and  re-orders  the  necessary  event  arrays  accordingly. 


A At  an  orbital  insertion  execution  event  the  previously  computed 
AV^j,  is  used  to  update  the  targeted  nominal  state.  In  addition,  the 

planeto-centric  equatorial  components  of  AV^  and  the  actual  spacecraft 


cartesian  and  orbital  element  states  following  the  insertion  maneuver  are 
computed. 
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4.  External ly - supplied  velocity  correction. 

o* 

**  — A • 

At  this  type  of  guidance  event  the  state  estimate  + X,  is  simply 
updated  using  the  externally-supplied  velocity  correction  • 

Because  of  the  complexity  of  the  GUISIM  flow  chart,  a simplified 
flow  chart  depicting  the  main  elements  of  the  GUISIM  structure  precedes 
the  coexists  GUISIM  flaw  chart. 


Simplified  GU1SXM  Flow  Chart 


V 


gwia^-  ' 
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Call  to  compute  the  control  co- 

variar  e matrix  partlrlons  over 


GUIS  D*- 10 


! 


)k 

Call  EIGHY  to  compute  and  vTite  out 
the  eigenvalues,  eigenvectors, 
hype rel lips oid  of  the  position 
partition  of  the  P array. 




Store  velocity  partition  of  the  P 
array  in  the  2 and  VEIG  arrays. 


sk 

Call  EIGHY  to  compute  and  write  out 
the  eigenvalues,  eigenvectors,  and 
h> perellipsoid  of  the  velocity  par- 
tition of  the  P array. 


CUTS IK- 11 


Write  out  complete  description! 
oi  guidance  event. 


IGUID (5 ,11)  * ? 


1GUID( 1 ,11) 


Define  guidance  policy  code  1GP. 


Call  GUIS  to  compute  , >7^,  , 

and  certain  quantities  required 
for  biased  almpoint  guidance. 


Restore  state  vector, 
tine,  and  knowledge  co- 
variance  matrix  par- 
titions to  their  l 

1 

values . 


RE*.  >'< 


Injection  time? 


Compute  velocity  correction  covar- 
lance  matrix  S^.  Write  out  cor- 
relation matrix  and  standard  dev- 
iations. Compute  and  write  out 
eigenvalues  and  eigenvectors. 


IGP  - 


Compute  and  write  out  hyperelllpsold  of  S ^ . 
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Compute  and  write  out  actual  and  estimated 
positlon/veloclty  deviations  from  the 
targeted  nominal. 


Compute  anc  write  out  the  commanded  and 
perfect  velocity  corrections  to  null  out 
errors  from  most  recent  target  conditions. 
Compute  end  write  out  the  error  in  the 
velocity  correction  due  to  navigation 
uncertainty . 


vrt,vr'i  /o 


Store  AV„  in  DVN  array  for  _se  in 

NJ 

aobrou tine  BIA m . 


injection  time? 


Call  S1A1M  to  perform  biased  ainpolnt 
guidance  event.  Return  aimpoint  ^ 

bias  velocity  correction  AV^p  , and 
execution  error  covariance  matrix  Q,. 


Cocrpute  Qj  using 
AVv.  . Set  IRET  - 


ICUID(3,II) 


Set  IX  - 1 and  JX  - II. 

Set  XIX  to  estimated  state  at  t 


Write:  Commanded  velocity  correction  will 
be  recomputed  using  nonlinear  guidance. 


ICUID(l.Il)  - ? 


2 2VBP 


Compute  Julian  date  corresponding 
to  t^  and  set  IG0  ■ 1 . 


Compute  position  and  velocity 
of  target  planet  at  the 
specified  time. 


Define  target  variables 
XTA&,  LKTAR,  LNPAR,  and 
TCT3  for  nonlinear  2VBP 
guidance. 


Define  target  variables 
XTAR,  LKTAR,  LNPAR , and 
TGT3  for  nonlinear  3VBP 
guidance. 


Define  target  variables  XTAR, 
LKTAR,  LNPAR,  and  TGT3  for 
nonlinear  FTA  guidance. 


Call  NjSNLIN  to  compute 
nonlinear  commanded  velocity 
correction.  Return  XDELV. 
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Set  A^up  to  XDELV.  Compute 

U?5 

magnitude.  Write  out  AV^ 
and  its  magnitude.  j 


Write:  Nonlinear 
guidance  failed. 
Linear  guidance 
vill  be  employed. 


injection  timer 


Set  5 - 0 


Compute  using  AV^p 


Set  I RET  - 2 


Write  out  correlation  matrix 
and  standard  deviations  assoc- 
iated with  \ j . 


IRET  - ? 


Compute  and  write  out  eigen- 
values, eigenvectors,  and 
hyperellipsoid  associated  with 

V 


Set  AV,.p  to  AVv  . 

wPj  NJ 


BJUID(2,II; 


IGi  ID  (5 , II)  «•  ? 

(Is  vel<  city  correction  to 
be  tre.  ted  at  t . ?) 


IGUID(4 , II)  - ? 

\ 2 

(What  kind  of  thrust  model 

J (impulse 

' series) 

is  to  be  employed?) 

(finite  burn)  1 

(sing  le  impulse) 

Vrite:  Finite 
bum  not  available. 


Store  PI  arra)  In  PSAVE  array.  ^Update 
knowledge  covariance  by  adding  to 

the  velocity  , -rrltion  of  the  PI  array. 
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IGUID(l.II) 

YES 


• 4 or  5? 


Call  C0K&EL  tc  vrite  out  control  and 
knowledge  correlation  matrix  partitions 
and  standard  deviations  Just  after  the 
guidance  correction. 
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- injection  time? 


IAV0P  | t 0 ? 


Use  AV,_  to  compute  the  actual 

UFJ 

execution  error  £AV^.  Compute 

the  actual  velocity  correction 

AV..  Write  out  £ AV  and  Av  . ■ 
* «J 


Set  dAV^  and 
AVj  to  rero. 


IGUlD(l.II)  i 4 or  5 ? 


Compute  and  write  out  planeto-centric 
equatorial  components  of  AV^. 


1GUID(4,II)  i 2 ? 


XX IN  to  the  actual  sta^u 

t,.  Set  DZLPX  to  AV  , 

J j 

Compute  Juliaa  date  at  t^.  Set 

IN’PX  - 1 . 


Call  EXCUTS  to  compute  the 
effective  actual  state.  Eetum 
XX IN.  Set  XACT  to  XX1N. 


f 


1GUID(1 ,11)  f 4 or  5 ? 
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IGUID(l.Il) >47 


Compute  Julian  date  at  t y 
Set  IG0  - 2 . 


NN  - 3 


1GU1DC1.11)  - 2 


NN  - 2 


Compute  target  condition  covariance 
matrix  following  the  guidance 

correction.  Write  out  the  associated 
correlation  ratrix  and  standard 
deviations . 


Compute  and  write  out  eigenvalues, 
eigenvectors,  and  hyperelllpsoid 
associated  with  W 


oopute  and  write  out  actual  target 
error  due  to  navigation  uncertainty, 
actual  target  error  due  to  execution 
error,  and  total  target  error. 


IGU1D(5,11)  - ? 

(Is  velocity  correction  to  bo  executed? 


!'  - 


Store  PSAVE  array  in  the  Pi 
array  ~o  that  the  PI  array 
contains  the  knowledge  co- 
ariance  just  before  the 
.uldance  event. 
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Compute  os  lug 

Set  IXTT  - 2 . 


r — _ ' 
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IGUH>(4 , XI)  i 1 ? 


Compute  actual  spacecraft 
state  relative  to  target 
planet  immediately  following 
orbital  Insertion. 


IGUID(4,II)  i 2 ? 


Compute  actual  spacecraft  state  relative 
to  target  planet  immediately  following 
an  orbital  insertion  employing  an  Impulse 
series  thrust  model. 


Write  out  actual  spacecraft  state  relative 
to  target  planet  immediately  following 
orbital  Insertion  In  ecliptic  coordinates. 


Compute  and  write  out  above  spacecraft 
relative  state  In  planeto-centrtc  equatorial 
coordinates. 


Compute  target  planet  gravitational  constant. 
Call  CAREL  to  compute  the  orbital  elements 
of  the  spacecraft  orbit.  Write  out  elements, 
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Set  IX  - 2 and  JX  - II. 

Sec  X2N  to  estimated  state  at  t^. 


Define  UCTAR  array  for  orbital  insertion. 


Call  N0NLIN  to  compute  orbital 
insertion  AV  and  tine.  Return 
XDELV  and  TGT3 . 


Set  Avtto  to  XDELV  and 

UPj 

DT0  to  TGT3. 


Write:  Oibital 
insertion  failed. 


IGUID(3,II)  y 2 ' 


NO 
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Tr^  r.r» 
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bet  XX IN  to  estimate  state 
at  t . . Set  DELPX  to  A^JP 


Define  Julian  date  at  t 


j; l 


Set  INPX  ■ 2 and  store  impulse 
series  execution  error  var- 
iances in  the  DUHKYQ  array. 


Call  EXCUTS  to  compute  the 
effective  execution  error  co- 
variance  matrix  and  the 
effective  estimated  state 
corresponding  to  the  impulse 
series.  Return  QX  and  XX.  'I. 


Restore  single  impulse  execution 
error  varlauces  into  the  DUKKYQ 
array. 


Store  PI  <*rray  in  the  PSAVE 
array.  Update  knowledge  co- 
variance  by  adding  effective 


to  the 


array. 


Set  XT^T  to  XX2H. 


HEUO-A 

SUBROUTINE  HELIO 

PURPOSES  tO  COMPUTE  THE  ZERO  ITERATE  INJECTION  STATE  FOR 
INTERPLANETARY  TARGETING 

CALLING  SEQUENCE!  CALL  HELXO 

SUBROUTINES  SUPPORTED « ZERIT 

SUBROUTINES  RE4UIREOI  LAUNCH  ELITE  ELCAR  EPHEH  ORB 

PECEQ  TINE 

LOCAL  SYMBOLS!  AHEL  SEMI-MAJOR  AXIS  OF  THE  HELIOCENTRIC  CONIC 

ARGP  ARGUMENT  OF  PERIAPSIS  OF  THE  HELIOCENTRIC 

CONIC  IN  RAOIANS 

ASCNO  LONGITUDE  OF  THE  ASCENDING  NODE  OF  THE 
HELIOCENTRIC  CONIC  IN  RADIANS 

ATP  SEMI-MAJOR  AXIS  OF  TARGET  PLANETOCCNTRXC 

CONIC 

AZF  AZIMUTH  AT  OF  ON  THE  HELIOCENTRIC  CONIC 
IN  DEGREES 

AZI  AZIMUTH  AT  DI  ON  THE  HELIOCENTRIC  CONIC 
IN  OEGREES 

82  SQUARE  OF  THE  B VECTOR  MAGNITUDE  OF  THE 

TARGET  PLANETOCENTRIC  CONIC 

CBQR  OESIREO  8.R  MAGNITUDE  AT  DF  OF  THE  TARGET 
PLANETOCENTRIC  CONIC 

CBQT  OESIREO  B.T  MAGNITUDE  AT  DF  OF  THE  TARGET 
PLANETOCENTRIC  CENTER 

COSASN  CONSINE  OF  ASCNO 

COSB  INTERMEDIATE  VARIABLE  FOR  AZI, AZF  EQUATION 

COSTS  COSINE  OF  FS 

COSF  COSINE  OF  TAI 

COSPSI  COSINE  OF  PSI 

COST HE  COSINE  OF  THETAI 

CRCA  OESIREO  RCA  MAGNITUDE  AT  OF  OF  THE  TARGET 
PLAKETOCEMTRn  CONIC 
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OH 


HELIO-B 


DELT 

OF 

oz 

OSIC  A 

EHEL 

EQEC 

ETP 

FF 

FS 

IDAT 

IDUH 

ITIH 

I 

J 

LDAT 

OAPO 

OASN 

OECC 

OGAF 

OGAI 


TIKE  OF  FLIGHT  (SECS)  OF  KELICQENTRIC 
CONIC  , 

FINAL  JULIAN  DATE  OF  HELIOCENTRIC  CONIC 

INITIAL  JULIAN  DATE  OF  HELIOCENTRIC  CONIC 

DELTA  TIME  (DAYS)  FROM  SPHERE-OF- INFLUENCE 
TO  CLOSEST  APPROACH  OF  THE  TARGET  PLANET 
OCENTRIC  CONIC 

ECCENTRICITY  OF  THE  HELIOCENTRIC  CONIC 

TRANSFORHATION  HATRIX  FRDH  ECLIPTIC  TO 
TARGET  PLANET  EQUATORIAL  AT  OF 

ECCENTRICITY  OF  THE  TARGET  PL ANET OCENTRIC 
CONIC 

INTERHEOIATE  VARIABLE  FOR  COMPUTATION  OF 
DSICA 

TRUE  ANOMALY  OF  THE  TARGET  PL AMETOCENTRIC 
CONIC 

CALENDER  DATE  CORRESPONDING  TO  DF 

OUHHY  ARGUMENT  FOR  CALL  TO  SUBROUTINE 
ELITE 

INDICATES  COMPUTATION  OF  HELIOCENTRIC 
STATES 

=0,  COMPUTE  INITIAL  AND  FINAL  STATES 
=1,  CONFUTE  FINAL  STATE  ONLY 


INDEX 

INDEX 

CALENDER  DATE  CORRESPONDING  TO  01 

APOAPSIS  RADIUS  OF  THE  HELIOCENTRIC  CONIC 

ASCNO  CONVERTED  TO  DEGREES 

OUTPUT  ECCENTRICITY  OF  THE  HELIOCENTRIC 
CONIC 

FLIGHT  PATH  ANGLE  AT  OF  OF  THE  HELIO- 
CENTRIC CONIC 

FLIGHT  PATH  ANGLE  AT  01  OF  THE  HELIO- 
CENTRIC CONIC 


OHCA  CEMTRAi.  ANCLE  OF  THE  HELIOCENTRIC  CONIC 

OINC  INCLINATION  OF  THE  HELIOCENTRIC  CONIC 

OLAF  LATITUDE  AT  OF  OF  HELIOCENTRIC  CONIC 

OLAI  LATITUDE  AT  01  OF  HELIOCENTRIC  CONIC 

OLOF  LONGITUDE  AT  OF  OF  HELIOCEh.RIC  CONIC 

0L0I  LONGITUDE  AT  01  OF  HELIOCENTRIC  CONIC 

OP£R  ARGUMENT  OF  PERIAPSIS  OF  THE  HELIOCENTRIC 

CONIC  IN  DECREES 

ORCA  PERI APSIS  RADIUS  OF  HELIOCENTRIC  CONIC 

ORF  MAGNITUDE  OF  HELIOCENTRIC  POSITION  AT  OF 
IN  OUTPUT  UNITS 

ORI  MAGNITUDE  OF  HELIOCENTRIC  POSITION  AT  01 

IN  OUTPUT  UNITS 

OSMA  SEMI-HA JOR  AXIS  OF  THE  HELIOCENTRIC  CONIC 

IN  OUTPUT  UNITS 

OTAF  TRUE  ANOMALY  AT  OF  OF  HELIOCENTRIC  CONIC 
IN  OEGREES 

OTAI  TRUE  ANOMALY  AT  01  OF  HELIOCENTRIC  CONIC 
IN  DEGREES 

OVF  MAGNITUDE  OF  HELIOCENTRIC  VELOCITY  AT  OF 
IN  KILOMETERS 

OVI  MAGNITUDE  OF  HELIOCENTRIC  VELOCITY  AT  01 
IN  KILOMETERS 

OVPF  VELOCITY  OF  TARGET  PLANET  AT  OF 

OVPI  VELOCITY  OF  TARGET  PLANET  AT  01 

PMEL  SEMI-LAUS  RECTUM  OF  HELIOCENTRIC  CONIC 

PLIKC  INCLINATION  (IN  RADIANS)  OF  HELIOCENTRIC 
CONIC 

PSI  CENTRAL  ANGLE  (IN  RADIANS)  OF  HELIOCENTRIC 
CONIC 

PTP  SEMI-LATUS  RECTUM  OF  TARGET  PLANETOCENTRIC 
CONIC  AT  OF,  USED  TO  CALCULATE  OSICA 


RF 

RX 

RTH 

RT 

RZH 

RZ 

S6N 

SI  HASH 

SINF 

SINHF 

SINPSI 

SI 

SL 

sum 

TAF 

TAX 

TANF 

TERM 

TEST 

TFP 
THETA I 
TSPH 
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MAGNITUDE  OF  TARGET  PLANET  POSITION  AT  OF 
HAGNITUOE  OF  TARGET  PLANET  POSITION  AT  01 
MAGNXTUOE  OF  RT  VECTOR 

HELIOCENTRIC  POSITION  VECTOR  OF  THE  FINAL 
CONIC  CORRESPONDING  TO  OTAF 

HAGNITUOE  OF  THE  RZ  VECTOR 

HELIOCENTRIC  POSITION  VECTOR  OF  THE  FINAL 
CONIC  CORRESPONDING  TO  OTAX 

INTERNAL  SIGN  VARIABLE  USED  TO  DEFINE  THE 
TRANSFER  PLANE  ORIENTATION 

SINE  OF  ASCND 

SIN  OF  TAI 

HYPERBOLIC  SINE  OF  THE  AUXILIARY  VARIABLE 
F USED  TO  CALCULATE  OSICA 

SINE  OF  PSI 

SECONDS  IN  CALENDER  DATE  IDAT 

SECONDS  IN  CALENDER  DATE  LOAT 

GRAVITATIONAL  CONSTANT  OF  SUN  IN 
KM**3/SEC**2 

OTAF  IN  RADIANS 

OTA I IN  RADIANS 

TANGENT  OF  THE  AUXILIARY  VARIABLE  F USED 
•TO  CALCULATE  OSICA 

INTERMEDIATE  VARIABLE  USED  TO  CALCULATE 
CRCA 

INTERMEDIATE  VARIABLE  USED  TO  CALCULATE 
AZIMUTHS  AND  PATH  ANGLES 

DUMMY  VARIABLE  USED  TO  CALL  ELCAR 

INTERMEDIATE  ANGLE  USED  TO  OEFINE  AR6P 

SPHERE-OF-INFLUENCE  OF  TARGET  PLANET  IN 
KILOMETERS 


m 


* 


1 


: • ' ; 

. ..  u 

HEUOE 

VF  VELOCITY  OF  THE  TARGET  PLANET  AT  OF 

VMAT  INTERMEDIATE  VECTOR  USED  TO  DEFINE  AZX. 
AZF 

VHP  HYPERBOLIC  EXCESS  VELOCITY  OF  THE  TARGET 

PLANETOCENTRIC  CONIC  AT  OF 

VHPM  MAGNITUDE  OF  THE  VHP  VECTOR  USED  TO 
CALCULATE  OSICA 

VI  VELOCITY  OF  LAUNCH  PLANET  AT  01 

VH AG  INTERMEDIATE  VARIABLE  USED  TO  DEFINE  AZI, 

AZF 

VTH  MAGNITUDE  OF  VT  VECTOR 

VT  HELIOCENTRIC  VELOCITY  VECTOR  OF  THE  FINAL 

CONIC  CORRESPONDING  TO  OTAF 

VZM  MAGNITUDE  OF  THE  VZ  VECTOR 

VZ  HELIOCENTRIC  VELOCITY  VECTOR  OF  THE  FINAL 

CONIC  CORRESPONDING  TO  OTAI 

UHAT  UNIT  VECTOR  NORMAL  TO  THE  TRANSFER  PLANE 

MHAG  HAGNITUOE  OF  THE  NON-UNITIZED  MHAT  VECTOR 


XF 

POSITION 

OF  THE 

TARGET 

PLANET 

AT  DF 

XI 

POSITION 

OF  THE 

LAUNCH 

PLANET 

AT  DI 

COMMON 

COMPUTED/USEDS 

THU 

VHPM 

COMMON 

COMPUTED! 

DPA 

NO 

RAP 

RIN 

TIN 

COMMON  USED! 

ALNGTM 

OG 

DT 

IZERO 

XT  AR 

KUR 

NLP 

NTP 

ONE 

PI 

PMASS 

RAO 

SPHERE 

TAR 

TM 

TNO 

XP 

ZOAT 

ZERO 
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HELZO  Analysis 


BELZO-1 


BSLZO  cospatti  the  aero  iterate  initial  atitt  for  interplanetary  trajectories. 
The  Initial  and  final  state*  are  determined  either  by  an  arbitrary  position 
vector  or  by  the  location  of  a specified  planet  at  a , escribed  tine  according 
to 

XZKS0  “ 1 planet  to  planet 

2 planet  to  arbitrary  final  point 

3 arbitrary  Initial  point  to  planet 

4 arbitrary  initial  point  to  final  point 

The  final  time  used  in  locating  a planet  must  correspond  to  the  closest 
approach  (CA)  to  the  planet.  Therefore  if  the  target  time  is  read  in  as 
a sphere  of  Influence  (SOI)  time,  a modification  is  required.  The  helio- 
centric conic  is  computed  (as  described  below)  using  the  t time  to 

SI 

determine  the  final  position.  The  approach  asymptote  v*^  corresponding 

to  that  trajectory  is  used  with  the  desired  r^  to  compute  the  time  from 

SOI  to  CA.  If  r is  not  a target  variable  then  the  target  values  of  B-T 
CA 

and  B*1  are  used  to  estimate  the  r_ 


+ i. 

V 2 
HP 


+ 4B 


Then  the  approximate  approach  hyperbola  is  given  by 


2m  - V r 

HP  SI 


and  the  hyperbolic  time  to  go  from  SOI  to  CA  is  given  by 


( e slnh  I - F) 


where 
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* TD-  ' 


•■  K 


'■.  V 


H1LI0-2 


tsnh  4 *> 


JIZI 

▼ V* 


con  f ■ A 


(4) 


The  final  tint*  1b  than  given  by  t'f  - tg^  * AtgICA  . 

The  Initial  and  final  posit looa  ~t  and  ~r  of  the  heliocentric  conic 

if 

are  either  Input  or  computed  from  the  poaltlona  of  planets  determined  by 
O&B  and  SFHZM.  The  unit  normal  to  the  heliocentric  orbit  plane  Is 


A 

W « 


ri  * rf 


ft  *ft 

The  Inclination  to  that  t lane  Is 


(5) 


COB  1 • W 


(6) 


The  ascending  node  of  the  plane  Is  given  by 

A 

V 

tan  Q “ — - 

A 
-W 

y 


(7) 


The  central  angle  of  transfer  Is  defined  by 

cos  ♦ **  ..  fl  ft 

rlrf 


(8) 


The  seal-major  axis  a and  eccentricity  e of  the  heliocentric  conic  are 
computed  froe  Lambert's  theorem  In  subroutine  FLUE.  The  true  anomaly  f ^ 

at  the  Initial  and  final  points  are  computed  from 


p • a (1  - e4) 
P ‘ 


cos  l.  • 

1 « r 


1 


P-r 


cos  f^  cos  ♦ - 


slo  f^  • 


<8> 


sin'P 
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KELIO-3 


lf  - . ♦* 


Finally , the  argument  of  p«rUpili  sJ  is  computed  from 

r .«■ 

cos  (u  + f ) « - ^ 

i r 


(10) 


where  U ■ (cos  Q , sin  0,0). 


Therefore  the  initial  or  final 


states  ("r^  ^ ) or  Crf,  "v  ) may  now 


computed  by  HCASL.  Let  ( TT  ) denote  either  state  and  let  ( T*,  V ) 

denote  the  state  of  the  relevant  planet.  The  departure  (or  approach) 
asymptote  is  then  given  by 


v - v 

HP  f p HZ 

The  latitude  and  longitude  of  the  position  vector  are 


v - v 
i P 


(11) 


sin  9 " ^ 

r 


tan  6 •» 

r 

x 


the  path  angle  r may  be  computed  from 


cos  r " 


r v 


(12) 


(13) 


The  aeiauth  of  the  relevant  state  is 
sin  £ 


_ /\ 
_ ( r n^n-U 


r x v 


(14) 


cos  £ ■ 


•v  cos  r 


(15) 


If  the  initial  state  is  referenced  to  a planet,  subroutine  LAUHCH  is  called 
to  convert  the  departure  asymptote  and  launch  profile  into  an  injection 
radius,  velocity,  and  time.  Otherwise  the  Initial  state  is  returned  as  the 
initial  state  on  the  heliocentric  conic. 


Reference:  Space  Research  Conic  Program,  Phase  III,  Kay  1,  1969,  Jat 

Propulsion  Laboratory,  Pasadena,  California. 
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KZUO-4 


UZL10  Flow  Chart 


ENTER 


Initial  Uation 
IT  IK  - 0 
tf  - DTOCUR) 

tt  - DG(KUR) 


At  - tf  - tx 


ITE1-? 


•1.2  X \ -3.4 

< IZEKO-7> 1 


(X.,V  ) “ state  of  LP  at  t^ 
(ORB.EPH&O 


Xi  - ZHAT(l) ,ZDAT(2) ,ZDAT(3) 


-1.3  / \ -2.4 

X IZERO  - ?N 


((X  ,V  ) ■ atate  of  TP  at  t. 
(ORB.KPHEH) 


Xf  - £DAT(4) ,ZDAT<5) ,ZDAT(6) 


Compute  heliocentric  plane  elements 
Orbital  plane  normal  V 
Central  angle  of  transfer^ 
Orbital  plane  Inclination  1 


Coapute  heliocentric  semi-major  axis  and 
eccentricity  froa  Lambert '■  theorem  (FLITS) 


1 *. 


HELIO-5 
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HYElS-A 


H 

M 

II 

■I 


i 

■■■t 

f 

^ .T 


SUBROUTINE  HYELS 

PURPOSES  TO  COMPUTE  ANO  PRINT  THE  TWO-DIMENSIONAL  OR  THREE- 
OXMENSXONAL  HYPERELLIPSOI 0 OF  A SPECIFIED  MATRIX. 

CALLING  SEQUENCE*  CALL  HYELS(KE,P,N) 


ARGUMENT  I 


KS 

P 


SUBROUTINES  SUPPORTEDl  EIGHY 

GUIO 


I SIGMA  LEVEL  OF  THE  HYPERCLLXPSOXO 

I MATRIX  FOR  WHICH  THE  HYPERELLIPSOID  IS  TO 
BE  CQHPUTEO 

I DIMENSION  LIMITS  OF  THE  SQUARE  MATRIX  P 

SETEVN  GUIOM 


SUBROUTINES  REQUIRED! 
LOCAL  SYMBOLS  I K2 

PI 


GUISIM  GUISS 
PRED 


MATIN 

SQUARE  OF  SIGMA  LEVEL 
INVERSE  OF  MATRIX  P 


f 

RRHt  ! 

Pi2 

TWICE 

THE 

VALUE 

OF 

(1,2) 

ELEMEK 

PI 

i 1 

P13 

TWICE 

THE 

VALUE 

OF 

(1,3) 

ELEMENT 

OF 

PI 

■ : 1 

P23 

TWICE 

THE 

VALUE 

OF 

(2,3) 

ELEMENT 

OF 

PI 

COMMON  USED! 


TEMPORARY  STORAGE  VECTOR  FOR  ARRAY  P 
TWO 


i 


..  . I ' P 
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HYBLS  Analysis 

Subroutine  HYELS  compute*  end  write*  out  hypereliipadds  a**ocleted  with 
e 2 or  3 dimensional  cove*-  5 ince  matrix  P. 


If  P la  assumed  to  b*  tha  covariance  matrix  of  an  n-dlmenslonal  random 
variable  x having  a gauaslan  distribution  with  moan  aero,  than  tha  pro- 
bability density  function  la  given  by 


(2») 


n/2  I P 1/2 


r 1 ~T  -l  -] 

**p  [-  2 x p *J 


Re-writing  this  equation  as 


*T  -1  , 

x P x ■ 2 


ta[o^2) 


171 


- k 


shows  that  the  surface  of  constant  probability  density  p is  an  m-diaen- 
slonal  ellipsoid,  where  m is  the  rank  of  P.  The  constant  k can  ha  shown 
to  correspond  to  the  sigma  level  of  the  ellipsoid. 


For  n ■ 3,  the  above  equation  has  form 

ax^  + by^  + cx*  + dxy+exx+fy*»k^ 


where 

*"  *11 

d - 2a 

12 

b **  *22 

a ■ 9a 

13 

c “ *33 

f m 2a 

23 

and  the  a^  are  the  elements  of  ? . 

Subroutine  HYELS  uses  this  equation  to  compute  a 3-dimensional  hyperelllp- 
sold,  and  sets  the  appropriate  constant*  to  aero  to  compute  a 2-dimensional 
hyperellipsoid. 


H.  Sorenson.  ” Kalman  Filtering”,  Advances  in  Control  Systems, 
Vol.  3,  C.  T,  Leades  CSd. ).  hew  York:  Academic  Press,  1966, 
P.  219, 


Reference: 


DtPACT-A 


SUBROUTINE  IMPACT 

PURPOSE!  TO  COMPUTE  THE  ACTUAL  IMPACT  PLANE  PARAMETERS  BOT  ANO 

BOR  CORRESPONDING  TO  ANY  POINT  ON  AN  INCOMING  HYPERBOLA. 
IT  HAS  THE  OPTION  TO  CONVERT  TARGET  VALUES  OF  INCLIN- 
ATION XIN  ANO  RAOIUS  OF  CLOSEST  RCA  INTO  EQUIVALENT 
TARGET  VALUES  OF  OBT  ANO  08R. 

CALLING  SEQUENCE!  CALL  IMPACT(R,V,GMX,T,BOT,BDR,XIN,RCA,QBT,OBR, 

TCA.KOPT) 

ARGUMENTS  R(3)  I POSITION  VECTOR  TO  CENTRAL  BOOY  AT  EPOCH 

V<3)  I VELOCITY  VECTOR  TO  CENTRAL  BOOY  AT  EPOCH 

GMX  I GRAVITATIONAL  CONSTANT  OF  CENTRAL  BOOY 

T (3*3)  I TRANSFORMATION  MATRIX  FROM  REFERENCE  TO 

INCLINATION  SYSTEM 

BOT  0 VALUE  OF  ACTUAL  B.T  EVALUATED  AT  EPOCH 

BOR  0 VALUE  OF  ACTUAL  B.R  EVALUATED  AT  EPOCH 

XIN  I DESIRED  INCLINATION  (OEG)  (OPTIONAL) 

RCA  I OESIREO  RADIUS  OF  CLOSEST  APPROACH  (OPTION) 

OBT  0 TARGET  VALUE  OF  B.T  BASED  ON  XIN,  RCA 

OBR  0 TARGET  VALUE  OF  B.R  BASEO  ON  XIN,  RCA 

TCA  0 TIME  FROM  PERIAPSIS  ON  CONIC 

KOPT  I TARGET  VALUE  COMPUTATION  FLAG 

=0  00  NOT  COMPUTE  TARGET  VALUES 

*1  COMPUTE  TARGET  VALUES  OF  B.T,  B.R 
(MUST  READ  IN  OPTIONAL  INPUT) 


SUBROUTINES  SUPPORTED  I 
SUBROUTINES  REQUIRED! 
LOCAL  SYMBOLS!  AB 

AIN 

ANG 


TAROPT  LUNCON  LUNTAR  NULTAR  VHP 
NONE 

INTERMEDIATE  VARIABLE  FOR  CALCULATION  OF 
RV,SV,TV  SYSTEM 

TARGET  INCLINATION  IN  RADIANS.  AFTER 
NORMALIZATION 

OUTPUT  VARIABLE  NHEN  OECLIMATION 
CONSTRAINT  IS  VIOLATED 
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SET* v •stiTr 


v 


D4PAC1-B 


AUXF 


BMAG 


ECCENTRIC  ANOMALY  (HYPERBOLIC  CASE) 
SEMI-MAJOR  AXIS  OF  R-V  CONIC 
MAGNITUDE  OF  OESIREO  B VECTOR 
ACTUAL/OESIREO  B VECTOR 


MAGNITUDE  OF  ACTUAL  B VECTOR 


COECL 


COSINE  OF  OECL 


COELM  COSINE  OF  OELM 

CTA  COSINE  OF  TA 


COSINE  OF  M 


OECL 


MAGNITUDE  OF  VECTOR  NORMAL  TO  ORBITAL 
PLANE  IN  INERTIAL  SYSTEM 

OESIREO  MAGNITUDE  OF  OESIREO  B VECTOR 

DECLINATION  OF  APPROACH  ASYMPTOTE  IN 
INCLINATION  SYSTEM 


OELU  LONGITUOE  OF  ASCENDING  NODE  IN  INCLINATION 
SYSTEM 

E ECCENTRICITY  OF  THE  R-V  CONIC 

II  INCLIN \TION  SIGN  INDICATOR. 

*1,  INCLINATION  IS  POSITIVE 
*-l,  INCLINATION  IS  NEGATIVE 

IM  INDICATOR  FOR  DIRECTION  OF  MOTION  OF  THE 

TRAJECTORY 

= 1,  MOTION  IS  POSIGRADE 
»-l,MOTION  IS  RETROGRADE 

PI  MATHEMATICAL  CONSTANT  3. 1L1592&53 589793 

PV  INTERMEDIATE  VECTOR  USED  TO  CALCULATE 

OESIREO  B VECTOR 

P SEMI-LATUS  RECTUM 

OV  INTERMEDIATE  VECTOR  USED  TO  CALCULATE 

ACTUAL  B VECTOR 

RAD  OEGREES  TO  RADIANS  CONVERSION  CONSTANT 
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DtPACT-C 


i 

) 

i 

i 


i 


l 

l 

! 


COKHQN  USEC . 
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R0  TIKE  DERIVATIVE  0*  RN 

RH  MAGNITUDE  OF  THE  POSITION  VECTOR  R 

RRD  00T  PROOUCT  OF  R ANO  V VECTORS 

RV  VECTOR  USED  TO  CALCULATE  ACTUAL  AND 

OESXREQ  9 DOT  R 

SOECL  SINE  OF  OECL 

SOELM  SINE  OF  OELW 

SINHF  HYPERBOLIC  SINE  OF  AUXF 

STA  SINE  OF  TA 

SV  VECTOR  USED  TO  CONSTRUCT  RV,  TV  VECTORS. 

PARALLEL  TO  THE  APPROACH  ASYMPTOTE 

SM  SINE  OF  M 

SX  VARIABLE  USED  TO  DETERMINE  SIGNS  OF  DBT , 

OBR 

TANG  INTERMEDIATE  VARIABLE  FOR  CALCULATION  OF 

AUXF 

TA  TRUE  ANOMALY  FOR  CALCULATION  OF  AUXF 

THS  INTERMEDIATE  ANGLE  FOR  CALCULATION  OF  N 

TV  VECTOR  USED  TO  CALCULATE  AC « UAL  ANO 

OESIRED  B OOT  T 

VINH  VELOCITY  AT  INFINITY 

VX  MAGNITUDE  OF  THE  VELOCITY  VECTOR  V 

NMAG  . MAGNITUDE  OF  VECTOR  NORMAL  TO  ORBITAL 
PLANE  IN  INCLINATION  SYSTEM 

MV  VECTOR  NORMAL  TO  ORBITAL  PLANE  IN 

INCLINATION  AND  INERTIAL  SYSTEMS 

H ARGUMENT  OF  PERIAPSIS 

Z APPROACH  ASYMPTOTE  IN  INCLINATION  SYSTEM 

NINETY  ONE  TWO  ZERO 


INPACT-1 


r'" 


IMPACT  Analysis 


Tbs  Impact  parameters  B*T  and  a*R  fora  a convenient  sat  of  variables 
for  ths  description  of  tna  appro  ch  geometry  for  lunar  and  Interplanetary 
missions.  Let  * reference  carte  lan  coordinate  system  ZYZ  (ecliptic  in 
STEAP)  be  established  at  the  cener  of  the  target  body.  Let  Veo  denote 
the  hyperbolic  exceas  velocity  o the  spacecraft  In  the  XTZ  system.  An 
auxiliary  coordinate  system  R-E  T may  be  constructed  relative  to  the  V* 
by  tha  definitions 

S 1*  S iT  U> 

|1,*| 

A A. 

Therefore  S is  In  the  dlrectlo  . of  the  approach  asymptote  X Ilea  along 

the  Intersection  of  the  Impact  p ane  (tne  plane  normal  to  5 and  passim 
through  the  center  of  the  planet)  and  tha  reference  plane  (XT-plane),  and 
R completes  the  right  hand  ayat-sn.  Tha  ? vector  Ilea  in  tha  Impact 
plane  and  Is  directed  to  the  Inc  «&lng  asymptote.  Then  B*T  and  B»R  have 
the  usual  vector  definitions. 


Figure  1.  Impsct  Plans  Parameters 


In  the  optional  part  of  tha  subroutine,  the  target  Impact  parameter  B* 
associated  with  5 and  a target  Inclination  1 (relative  to  target  planet 
equator)  and  radius  of  closast  approach  la  computed.  However  given 

an  approach  asymptete  1»  thera  are  generally  four  trajectories  with  the 
same  values  of  1 and  rrA . Two  of  those  trajectories  are  rstrogrsds  and 


30’. 


-I 


i ' 

i 


* 

s- 


* 


IMPACT- 2 


two  in  postgrads . For  each  type  of  motion  ther£  are  two  distinct  pianos 
that  nave  tne  aaa a inclination  and  include  tne  S vector.  These  are 
distinguished  by  the  direction  of  taction  vnea  tne  approach  asymptote  Is 
crossed , i.s.,  vnetner  the  motion  is  from  north  to  south  (northern  approach) 
or  from  south  to  north  (southern  approach),  let  0 A A 4 90° . Then 
setting  the  target  inclinations  to  the  following  values  dstexrlnee  the 
trajectory  which  will  be  specif ltd: 


1 

Trajectory 

a 

-a 

180+  a 
180-  a 

postgrads  with  northern  approach 
postgrads  with  southern  approach 
retrograde  with  northern  approach 
retrograde  with  southern  approach 

The  possible  trajectories  are  illustrated  in  Figure  2. 


180 


-a 


Figure  2.  Possible  Trajectories  with  Same  Inclination 


The  detailed  computations  for  the  basic  peart  of  the  program  ere  straight* 
forward.  Using  the  standard  conic  abbreviations , 


(2) 

(3) 

(4) 


(3) 


IMPACT* 3 


e2  - 1 - -2- 

(6) 

s 

b " V p | *1 

(7) 

cos  f " 2.  — JL 

(») 

e r 

sin  f - I-* 

(9) 

* V 

Z - — v - i r 

(10) 

c c 

P - — cos  f - Z sin  f 

(11) 

r 

A A 

Q - — sin  f ♦ Z cos  f 

(12) 

r 

A a a b 

s - - P + 

: $ 

(13) 

Va2+b2 

A A A 

Y _ S x K 

(14) 

S x X 

A A A 

& - S x T 

(15) 

"b  ■ 1,2  'p 

♦ Q 

(16) 

V.W 

V.2*.2 

A 

B»T  ■ B.T 

(17) 

-k  A 

B*&  - B • R 

(18) 

The  computation*  for  the  optional  part  of  tne  program  which  convert* 
the  i and  r^  into  an  equivalent  proceed  a a folitwe.  The 

approach  asymptote  is  first  converted  into  target  planet  equatorial 
coordinates  and  its  right  ascension  and  declination  computed 


I 


,V ‘ . 


DCE4CT-4 


*1- 


0 ■ Fan 

S 


-1  <S1>v 

VO, 


Sg  - »ln"  (Sq)a 

The  angle  A9  between  the  ascending  node  of  the  trajectory  and  the 
right  aacenaloa  of  the  approach  asymptote  la  frtxa  Haplera  rule 


a in  d - 


6s 

tan  1 


after  assuring  that  j i j A ( 6 | . The  aac ending  node  of  the  trajectory 

H 

la  than  computed  recalling  the  deflnltlona  of  the  angle  1 


Q - 8g  ♦ A8  (♦») 


Thna  the  unit  vector  to  the  ascending  node  la  given  by 


®A  “ («»■■£?»  alnfi,  0) 


The  normal  to  the  orbital  plane  (In  target  planet  equatorial  coordlnatea) 

la 

A Sq  x $A 

V - rr (23) 


q I ^ * \ I 


Thla  la  new  converted  to  the  ecliptic  coordinate  system 

A • T a 

"c-  *raQH« 

The  unit  vector  in  the  desired  B*  direction  la 


A 

B*  - 


A A 

S x Wc 


i 


304 


BtfACT-5 


The  magnitude  of  the  B*  vec tor  la  given  by 


B*  - 


06) 


Than  tna  target  Impact  parens ter  la  B*  • B*  B*  . Tha  target  values  are 
then  given  by  their  obvious  definitions 


B-T* 


B*R* 


07) 


Finally  the  hyperbolic  tine  f roc  (r*,  V)  to  per tape < a 1 i computed  from 
the  conic  formula 


tanh 


F 

2 


t 


(e  ainh  F 


*) 


(26) 


Reference:  Klznsr,  W.,  A Kethod  of  Describing  Mias  Distances  for  Lunar 

and  Interplanetary  Trajectories,  Ballistic  Mlsgilee  and 
Space  Technology  vol  III,  Pezgaaon  Frees,  Rev  York,  1961. 
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SUBROUTINE  INPUTZ 

PURPOSE*  TO  CONVERT  THE  INPUT  INFORMATION  FOR  THE  VIRTUAL  HASS 
PROGRAM  INTO  VARIABLES  COHPATIBLE  NITH  THE  REST  OF  THE 
VIRTUAL  HASS  SUBROUTINES 

CALLING  SEQUENCE!  CALL  INPUTZ(RS*NTP, IPRINT) 

ARGUMENTS  RS(6I  I INERTIAL  STATE  OP  S/C  AT  INITIAL  TINE 

NTP  I CODE  OP  TARGET  BOOT 

IPRINT  I INITIAL  INFORMATION  PRINT  FLAG 
«Q  PRINT  INITIAL  DATA 
*1  00  NOT  PRINT  INITIAL  OATA 

SUBROUTINES  SUPPORTEOI  VHP 

SUBROUTINES  REQUIREOI  TINE 


SPACE 


LOCAL  SYMBOLS!  D 
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INTERMEDIATE  VARIABLE  FOR  PRINTOUT 
PURPOSES 


02  JULIAN  DATE  OF  FINAL  TRAJECTORY  TIME 

IDAY  DAY  OF  CALENOAR  DATE  OF  FINAL  TRAJECTORY 
TIME 

IHR  HOUR  OP  CALENOAR  DATE  OF  FINAL  TRAJECTORY 
TIME 

I MIN  MINUTE  OF  CALENDAR  DATE  OF  FINAL 
TRAJECTORY  TIME 

IMO  MONTH  OF  CALENOAR  DATE  OF  FINAL  TRAJECTORY 
TIME 

INERR  NOT  USED 

IP  CODE  OF  I-TH  PLANET  FOR  STORAGE  OF  PMASS 

ARRAY 

IYR  YEAR  OF  CALENDAR  DATE  OF  FINAL  TRAJECTORY 
TIMC 

LOAT  OAY  OF  CALENDAR  OATE  OF  INITIAL  TIKE 

LHR  HOUR  OF  CALENDAR  OATE  OF  INITIAL  TIME 

LMIN  MINUTE  OF  CALENOAR  OATE  OF  INITIAL  TIME 

LMO  MONTH  OF  CALENOAR  OATE  OF  INITIAL  TIKE 


r 


' Vi' 

A 


IHFUT2-B 


1 

LYR  YEAR  Of  CALENDAR  OATE  OP  INITIAL  TINE 

SECt  SECOND  OF  CALENDAR  OATE  OF  FINAL  TINE 

SECL  SECONO  OF  CALENOAR  OATE  OF  INITIAL  TINE 

TP  INTERMEDIATE  VARIABLE  FOR  CALCULATION  OF 

COMPUTING  INTERVAL 

COMMON  COMPUTED /USED  I V 


i 

COMMON  COMPUTED  1 

F 

NBODY 

INC 

IPR 

ITRAT 

(COUNT 

t 

i 

f 

COMMON  USEDI 

NBODYI 

NO 

PMASS 

ZERO 

t 

\ 


IKSERS-A 


SUBROUTINE  INSERS 

PURPOSE!  TO  CONTROL  THE  PROCESSING  OF  AN  ORBITAL  INSERTION  EVENT* 
CALLING  SEQUENCE!  CALL  INSERS(OTIHE) 

ARGUMENT  I DTIHE  0 


SUBROUTINES  SUPPORTED! 
SUBROUTINES  REQUIRED! 
LOCH  SYMBOLS  I DA 

OE 

ON 

DNTP 

ECCQI 

GM 

IEX 

I OPT 

RSP 

RSQ 

TEX 

VSP 

VSQ 

■ COMMON  COtVPUT EO/USEO ! 
COMMON  COMPUTED! 

COMMON  USED! 


TINE  INTERVAL  FROM  DECISION  TO  EXECUTION 
(OATS) 

GIOANS 

COPINS  NONINS  PECEQ 

DESIRED  SEHIHAJOR  AXIS 

DESIRED  ECCENTRICITY 

DESIREO  INCLINATION 

DESIRED  LONGITUOE  OF  ASCENDING  NODE 

DESIRED  ARGUMENT  OF  PERIAPSIS  SHIFT  OR 
DESIRED  ARGUMENT  OF  PERIAPSIS 

ECLIPTIC  TO  EQUATORIAL  TRANSFORMATION 

GR AVITXONAL  CONSTANT  OF  TARGET  BOOT 

UNEXECUTABLE  EVENT  CODE 

>0  EVENT  IS  EXECUTABLE 

«1  NO  EXECUTABLE  SOLUTION  FOUND 

INSERTION  STRATEGY  OPTION 
*1  COPLANAR  INSERTION 
■2  NONPLANER  INSERTION 

SPACECRAFT  POSITION  IN  ECLIPTIC  COORDS 

SPACECRAFT  POSITION  IN  EQUATORIAL  COORDS 

TINE  INTERVAL  TO  EXECUTION  (SECONDS) 

SPACECRAFT  VELOCITY  IN  ECLIPTIC  COORDS 

SPACECRAFT  VELOCITY  IN  EQUATORIAL  COORDS 

QELTAV 

OELV  KTXN  KNIT 


ALNGTH  01  F 

KUR  NBOO  NS 


KHXQ 

NTP 


KTAR 

PNASS 
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IKSEES-1 


INSEES  Analysts 

INSESS  controls  the  processing  of  an  orbital  Insertion  event.  The  sub> 
routine  COP I NS  and  NONINS  perform  the  actual  computations  for  the  co- 
planar  and  non-planar  options  respectively. 


INSE&S  first  records  the  specific  parameter  . -ies  for  the  current  orbit 
Insertion  event. 


It  then  computes  the  current  state  (r,  v)  oi  v< spacecraft  In  target- 

planet  cantered  ecliptic  coordinates.  Subroutine  PECBQ  la  called  to 
compute  the  transformation  matrix  $ from  ecliptic  to  equatorial 
coordinates . The  planet  centered  equatorial  coordinates  are  then 

dfc  -a 

r m A X 
q ECBQ 


V 

<1 


* 

ECEQ 


v 


This  state  Is  then  s$nt  to  COPINS  or  NONINS  for  the  computation  of  the 
Insertion  velocltyAv  and  the  time  interval  t between  the  current  time 
and  the  time  at  whlch^the  insertion  should  take  piece, (baaed  on  conic 
propegatlon  about  the  target  body).  The  correctlon^v  la  then  con- 
verted to  ecliptic  coordinates  ^ 

Av  - A v^ 

If  the  event  Is  a compute-only  mode,  the  return  Is  made  to  GIDANS. 

If  the  event  Is  to  be  executed  the  flag  IEX  (set  by  COPINS  01  NONINS 
to  Indicate  success  or  failure)  Is  then  Interrogated.  If  I EE  * 1, 
no  acceptable  insertion  event  was  found  and  so  the  executive  flag 
JWIT  Is  set  to  1 before  returning.  If  IEE  * 0 an  acceptable  Insertion 
was  determined  and  so  It  Is  set  up. 
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USERS- 2 


IMPS  Plow  Ou  t 


JACOBI-A 

SUBROUTINE  JACOBI 

PURPOSE!  TRANSFORMATION  OF  A REAL  SYMMETRIC  MATRIX  TO  QXAGONAL 
FORN  BY  A SUCCESSION  OF  PLANE  ROTATIONS  TO  ANNIHILATE 
THE  OFF-DIAGONAL  ELEMENTS  ANO  SUBSEQUENT  COMPUTATION 
OF  THE  EIGENVALUES  ANO  EIGENVECTORS  OF  THAT  MATRIX 

CALLING  SEQUENCE*  CALL  JACOBI (A, M2 , V,N*FOO> 

ARGUMENT!  A I MATRIX  TO  BE  OIAGONALIZEO  (MILL  BE 

OESTROYEO) 

M2  0 VECTOR  OF  EIGENVALUES  (LENGTH  N) 

V 0 MATRIX  OF  EIGENVECTORS  (N  BY  N DIMENSION) 

N I DIMENSION  OF  SQUARE  MATRIX  A 

FOO  I FINAL  OFF-DIAGONAL  ANNIHILATION  VALUE 

SUBROUTINES  SUPPORTED!  EIGHT  GUISIH  GUISS  PRESIM  SETEVN 

GUIDH  GUIO  PRED 

LOCAL  SYMBOLS!  AIIP  INTERMEDIATE  VARIABLE 

AIPXP  INTERMEDIATE  VARIABLE-A ( IPIP) 

f 

AIPJP  INTERMEDIATE  VARIABLE-A (IPJP)  j 

AJPJP  INTERMEDIATE  VARIABLE-A (JPJP)  ; 

I 

CS  INTERMEDIATE  VARIABLE  j 

DEL  DIFFERENCE  IN  ELEMENTS  OF  A j 

IREDO  COUNTER  j 

I 

i 

KR  DIMENSION  OF  A j 

KRP1  <R  ♦ 1 I 

MM1  N - 1 

RAO  INTERMEDIATE  VARIABLE 

SN  INTERMEDIATE  VARIABLE 

TN  INTERMEDIATE  VARIABLE 

T1  LARGEST  OFF-DIACONAL  ELEMENT 

VIIP  INTERMEDIATE  VARIABLE 
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JACOBI-  B 


COMMON  OS  CO  I ONE  TUO 


ZERO 


.•tv* 


JACOBI  Analysis 


JACOBI- 1 


Ilia  Jacobi  method  subjects  a real,  a yams  trie  matrix  A to  a aequence  of 
tra na format loo a baaed  on  a rotation  matrix: 


cos  $ 


-aln  A 

1 

coa  $ 


where  all  other  elemeota  of  the  rotation  matrix  are  Identical  with  the 
unit  matrix.  After  n multiplications  A is  transformed  into: 

-1  -1 

A’  - 0 0,  A 0 0 

a 1 1 *■ 

If  9 1*  chosen  at  each  step  to  make  a pair  of  off-diagonal  elements 

zero,  then  A'  will  approach  diagonal  form  with  the  eigenvalues  on  the 
diagonal.  The  columns  of  0 0 0 correspond  to  the  eigenvectors  of  A. 

I A a 

The  angle  of  rotation  9 is  chosen  in  the  following  way.  If  the 
four  entries  of  0 are  in  (i,i),  (l,j),  (j,i)  and  (j,j)  then  the  correa- 
K -1 

ponding  elements  of  Oj,  A 0 are 


bii  " 


coa^J  + 2a^  8in  ^ cos  ® + ajj  *1°^ 


“■  « (a^  - ati)  sin  9 cos  9 + a^Ccos^  - sin2?) 

b . " a , . sin^9  - 2a,  aln  9 cob  9 + a . cos  ^9 

JJ  if  ij  Jj 

If  9 la  chosen  so  that  tan  29  * 2a  /(a^  " t*ien 

b - b - 0 

ij  ji 

Each  multiplication  creates  a new  pair  of  zeros  but  will  Introduce  a non- 
zero contribution  to  positions  zeroed  out  on  pre . Ioub  steps.  However, 
successive  matrices  of  the  form  .0^'^  O^-1  A 0^  *>2  wii*  approach  the 
required  diagonal  form. 

Reference:  Scheld,  Frances:  Theory  and  Problems  of  Nuxterlcal 

Analysis,  McGrav- Hi 1 1 Book  Company,  Inc.,  Bew  York, 
196B. 
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SUBROUTINE  LAUNCH 

PURPOSE!  TO  COMMUTE  THE  INJECTION  TINF,  POSITION,  AND  VELOCII , 
FROM  THE  DEPARTURE  ASYMPTOTE  AND  THE  LAUNCH  PROFILE 

ARGUMENT • 01  JULIAN  QAT£  AT  INJECTION  (OUTPUT) 

RZ  POSITION  VECTOR  AT  INJECTION  (OUTPUT' 

VZ  VELOCITY  VECTOR  AT  INJECT  ON  (OUTPUT) 

SUBROUTINES  SUPPORTED*  HELIO 

SUBROUTINES  REQUIREO*  EPHEM  ORA  PECEQ 

LOCALS  SYMBOLS!  ANGLE  INTERMEDIATE  ANGLE  USEO  TO  DEFINE  TL 

AZI  PLANETOCENTRIC  AZUKUTH  AT  INJECTION  (OEG) 

BHAT  UNIT  VECTOR  NORMAL  TO  SHAT  AND  NMAT  USEO 
TO  DEFINE  THE  P-Q  ELEMENTS  OF  THE 
DEPARTURE  HYPERBOLA 

BHAG  MAGNITUDE  OF  THE  NON-UNITIZEO  SHAT  VECTOR 

COSFL  COSINE  OF  FL 

COSFS  COSINE  OF  FS 

COSGAM  COSINE  OF  GANHAI 

COSPHI  COSINE  OF  FI 

COSSIG  CONSIKE  OF  SIGNAL 

COSML  CONSINE  OF  NL 

C3  VIS  VIVA  ENERGY  ON  THE  DEPARTURE 

HYPERBOLA 

DO  INTERHEDIATE  VARIABLE  USEO  TO  CALCULATE 

u GREENWICH  HOUR  ANCLE 

DLA  PLANETOCENTRIC  EQUATORIAL  DECLINATION  OF 

THE  DEPARTURE  ASYMPTOTE 

> 

EQEC  TRANSFORMATION  MATRIX  FROM  ECLIPTIC  TO 
LAUNCH  PLANET  EQUATORIAL 

FL  TRUE  ANOMALY  OF  LAUNCH  SITE  POSITION 

VECTOR 
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FS  TRUE  ANOMALY  OF  DEPARTURE  ASYMPTOTE 

GANMAZ  FLIGHT  PATH  ANGLE  AT  INJECTION 

6H  GREENWICH  HOUR  ANGLE 

GHLP  GRAVITATIONAL  CONSTANT  OF  THE  LAUNCH 

PLANET  IN  KM**3/SEC**2 

HE  ECCENTRICITY  OF  THE  DEPARTURE  HYPERBOLA 

10  INTERMEDIATE  VARIABLE  USED  TO  COMPUTE 

GREENWICH  HOUR  ANGLE 

I HR  HOUR  OF  INJECTION 

INN  MINUTE  OF  INJECTION 

I INDEX 

J INDEX 

LHR  HOUR  OF  LAUNCH 

LMN  MINUTE  OF  LAUNCH 

PHAT  UNIT  VECTOR  POINTING  TOWARD  PERIAPSIS  OF 
THE  HYPERBOLA 

PHIX  LATITUDE  OF  INJECTION 

PSIB  THE  ANGLE  FROM  LAUNCH  TO  INJECTION 

QHAT  UNIT  VECTOR  NORMAL  TO  PHAT  POINTING  IN  THE 

DIRECTION  OF  MOTION 

RAI  RIGHT  ASCENSION  AT  INJECTION 

RAL  RIGHT  ASCENSION  OF  DEPARTURE  ASYMPTOTE 

REFJD  JULIAN  DATE  FOR  1950 

RINAG  MAGNITUDE  OF  THE  SPACECPAFT  POSITION  AT 
INJECTION 

RI  SPACECRAFT  POSITION  AT  INJECTION 

♦ 

RLHffT  LAUNCH  SITE  POSITION  UNIT  VECTOR 

SECI  SECOND  OF  INJECTION 

SECL  SECOND  OF  LAUNCH 
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V 


SHAT 

SIKFL 

SIHFS 

SXNCAH 

SINPHI 

SINSIG 

SXNNL 

SLR 

TB 

TC 

TEST 

TFRAC 

THETAI 

TH 

TI 

TL 

TMN 

TSTAR 

TWOFOR 

VHL 

VXMAG 


t 


IAOBCH-C 


UNIT  SPACECRAFT  VELOCITY  VECTOR  IN 
EQUATORIAL  SYSTEM  AT  INJECTION 


SINE 

OF 

fl 

SINE 

OF 

FS 

SINE 

OF 

GAMMAI 

SINE 

OF 

FI 

SINE 

OF 

SIGNAL 

SINE 

OF 

WL 

S IMI-LAT US  RECTUM  OF  1HE  DEPARTURE 
HYPERBOLA 

TIME  BETWEEN  LAUNCH  AND  INJECTION  IN 
SECONOS 

LENGTH  OF  PARKING  ORBIT  COAST  IN  SECONDS 

INTERMEDIATE  VARIA8LE  TO  TEST  FOR 
VIOLATION  OF  AZIMUTH  CONSTRAINT 

INTERMEDIATE  VARIABLE  USED  TO  CALCULATE 
GREENWICH  HOUR  ANGLE 

LONGITUOE  AT  INJECTION 

INTERMEDIATE  VARIABLE  USED  TO  CALCULATE 
CLOCK  TIMES  OF  LAUNCH  AND  INJECTION 

INJECTION  TIME  IN  DAYS  REFERENCED  TO 
MIDNIGHT  OF  THE  LAUNCH  OAY 

LAUNCH  TIME  IN  DAYS  REFERENCED  TO  MIDNIGHT 
OF  THE  LAUNCH  DAY 

INTERMEDIATE  VARIABLE  USED  TO  CALCULATE 
CLOCK  TIMES  OF  LAUNCH  AND  INJrCTION 

INTERMEDIATE  VARIABLE  USED  TO  COMPUTE 
GREENWICH  HOUR  ANGLE 

* 

CONSTANT  VALUE*  EQUAL  TO  2%, 

MAGNITUDE  OF  VZ,  THE  INPUT  VECTOR  OF  THE 
OEPARTURE  ASYMPTOTE 

MAGNITUDE  OF  SPACECRAFT  VELOCITY  AT 
INJECTION 


IAUHCH-D 


■J 

: j 


WHAT 

ML 

WNAG 

XTIH 

COMMON  COMPUTEO/USEDl 
COMMON  COMPUTEO  * 
COMMON  USED* 


UNIT  VECTOR  NORMAL  TO  THE  LAUNCH  PLANE  IN 
EQUATORIAL  SYSTEM 

RIGHT  ASCENSION  OF  THE  LAUNCH  SITE 

MAGNITUDE  OF  THE  NON-UNITIZED  MHAT  VECTOR 

INTERMEDIATE  V ARI ABLE  USED  TO  COMPUTE 
CLOCK  TIMES  OF  LAUNCH  AND  INJECTION 

SIGNAL 

NO 


ALNGTH 

DPA 

FI 

FOUR 

KOAST 

NINETY 

NLP 

ONE 

PHILS 

PM  ASS 

PSI1 

PSI2 

RAO 

RAP 

RPRAT 

RP 

THEDOT 

THELS 

TIM1 

TIM2 

TM 

TWO 

VHPH 

XP 

ZERO 
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LA  USCB- 1 


IAUKCH  Analysis 


IAUKCH  computes  the  injection  time , position  and  velocity  from  the 
departure  velocity  v^  (computed  in  HELIO)  and  the  launch  profile  par- 
ameters input  by  the  user. 


The  rotation  matrix  <J>  defining  the  transformation  from  ecliptic  to 

ECZQ 

equatorial  coordinates  is  first  computed  (PE GBQ).  The  departure  velocity 

v Is  than  normalised  and  converted  Into  ecliptic  coordinates  to  yield 
HE 


/N 


the  departure  asymptote  S 


ECBQ 


1M 

'he 


(l) 


' sJ- 
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Auxiliary  information  associated  with  S Is  then  computed.  The  energy 
C^,  the  declination  4»g  and  the  right  ascension  8g  of  the  departure 

asymptote,  and  the  eccentricity  of  the  departure  hyperbola  are  given  by 

c,  - v,  1 
3 HE 

sin  ♦_  - S 

D E 


tan  © - -X 

S S 

x 


rpc3 

e - 1 + 


(X) 


where  r^  Is  the  desired  parking  orbit  radius  and  m Is  the  gravitational 
constant  of  the  launch  planet. 

/"s, 

The  unit  normal  V to  the  launch  plane  in  equatorial  coordinates  is  then 
computed.  « is  defined  by 

V • cos  ♦ sin  Zi 
t 1 L 


-V  S 8 +kS  Fl  - <82  + W2)  1 
„ gvt  x l e zJ 

s2  + 82 
* y 

- (V  S . ¥ S ) 

. y y + * « 


(3) 


x 


V 


, *k' 

-VW. 


UUBCB-2 


where  ♦.  It  Cht  launch  tit*  latitude,  £ it  tha  launch  azimuth, 

L M 

and  k ■ +1  or  -1  for  tha  long  or  ahort  coaat  time  modelt  respectively. 

Tha  aacond  aquation  daflnas  an  implicit  constraint  on  2^ 


* C08  <{> 

.^2  5 — — & 

cot  <p 


Tha  right  at  cant  ion  at  launch  0 may  now  be  daflnad  by 

la 

W sin  * sin  2 + ■ cos  2. 

x I-  L y L 

cos  O " 2 

L W - 1 

z 


sin  Q 

la 


V sin  <t>T  sin  2.  - V cos  2. 

V la  Xa  X la 


»2  - 1 
z 


and  tha  unit  vector  toward  the  launch  position  is  then 

» (cos  cot  0L  , cos  4*^  sin  0 L , sin  4*^)  (6) 

/\  /\ 

Tha  complementary  unit  vectors  P,  Q defining  the  orientation  of  the 
hyperbola  within  the  launch  plane  are  now  Introduced.  Let 

/\  /N 

B - S x V (7) 

The  true  anomaly  of  the  departure  asymptote  is  cos  « - —.  Then  and 
”Q^  are  given  as 

<N  /\  /\ 

P ■*  B cos  f + B sin  f 

s s 

/\  /\  /\ 

Q • 6 sin  f • B cos  f 

s s 


The  true  anomaly  of  tha  launch  si  te  f ^ may  now  be  given 

/\  /\ 

cos  fL  - * ? 


sin  f » 


/\  /\ 


1 • \ ' Q 


The  angle  ♦ between  launch  and  injection  is 


*t  - 2w  - *i* 
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LAUKCH-3 


whara  la  the  desired  true  anomaly  at  injection  read  in  aa  input. 

The  coaat  time  tfi  may  now  be  computed  from 


t - 

c 


V ‘*l+  V 


(ID 


where  ♦,  end  are  the  angle*  of  the  firat  and  aecond  buma  and 

1 2 

k^  la  the  lnverae  of  the  parking  orbit  coast  rate,  all  of  which  are 
read  In  as  input. 

The  time  between  launch  and  Injection  la  therefore 


S ■ *1  + *2  + ‘c 


(12) 


where  t^  and  are  the  Input  time  durations  of  the  first  and  second 

burns. 

The  unit  vector  to  injection  is 


A A /\ 

R - P cos  f + Q sin  f 
I I I 


(13) 


The  seml-latus  rectum  p is 


. ,i; 


(14) 


The  radius  magnitude  to  injection  la 


B - E 

* 1 + e cos  f 


(15) 


The  Injection  speed  is 

VI  • VC3  + 


(16) 


The  path  angle  at  Injection  is 

C r - -£*- 
1 *ivi 


(17) 
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The  injection  latitude  la 

aln  ♦ » ^ 


The  Injection  right  eacenaion  la 


\ 

w”  e m t1 
i h 


LAUNCH- 4 


The  injection  longitude  la 

8 - 8 + 0 - 0 - CJt  (20) 

I L I L B ' 

where  6 la  the  longitude  of  the  launch  site  and  U la  the  rotation  rate 
L 

of  the  launch  planet,  both  being  read  In  aa  Input. 

The  injection  azimuth  la 

8 - coa  (f  - f ) ain  ♦ 

co.  Z - 5 1 1 'll) 

1 ain  (f^  - f^)  coa 


The  launch  time  on  the  day  of  launch  la 


*1  " 


(0  - 9 - GHA)  mod  It 

is  la 


where  GHA  is  the  Greenwich  hour  angle  at  0a  01  of  the  launch  date 
GHA  - 100^07554260  + 0?9856473460  T,  ♦ 2®9013  * 10 V3 

G 0 

where  T^  - daya  past  0b  January  1,  1950. 

The  injection  radlua  vector  la  now  computed  from 
-*■  " /N 

* *i>i 

v * * 

\ ( w *T  ) coe  r ♦tr  «ln  r 

**11  1 * 1 *. 

The  injection  time  la 

T • T + t ♦ t 
Z ©LB 
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IAUBCH-3 


where  T la  the  Julian  data  of  the  launch  calendar  data, 
o 

Th*  Injection  position  and  valoclty  are  now  rotated  Into  tha  ecliptic 
plana.  Tha  poaltlon  and  valoclty  of  tha  launch  planet  at  tha  tlma  T.  are 

computed  and  added  to  tha  Injection  atata  to  gat  tha  heliocentric  lnjaction 

atate. 


leferenca: 


Space  Research  Conic  Program,  Phase  XU,  Kay  1,  1969,  Jet 
Propulsion  laboratory , Pasadena , California. 
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LUNA-A 


) 


SUBROUTINE  LUNA 

PURPOSE*  TO  CONTROL  THE  GENERATION  OF  THE  ZERO  ITERATE  TOR  LUNAR 
TARGETING 

CALLING  SEQUENCE  I CALL  LUNA 


SUBROUTINES  SUPPORTED  I 2ERXT 
SUBROUTINES  REQUIREOl  LUNTAR  NULTAR 
LOCAL  SYMBOLS*  I INOEX 


OS  PH 

CONNON  COMPUTED/USED l 
COMMON  COMPUTED* 

COMMON  USEO* 


ORIGINAL  SPHERE  OF  INFLUENCE  OF  TARGET 
PLANET  IN  A.U. 


OTAR  SPHERE 


BCQN 

CAI 

IBARY 

ICOORD 

PC  ON 

RCA 
TT  OL 

RPE 

SNA 

TCA 

TSPM 

ALNGTH 

OT 

FOUR 

KUR 

NTP 

ONE 

RP 

SPHFAC 

TEN 

ZDAT 

A 
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LUMA  Analysis  r- 


LUMA  la  the  controlling  subroutine  for  lunar  zero  Iterate  targeting.  It 
first  serves  an  Interface  role  in  which  it  Initializes  constants  and 
renames  variables  for  the  other  lunar  targeting  routines.  It  then  calls 
LUHTAR  for  the  targeting  of  the  lunar  patched  conic.  When  that  is  com- 
pleted It  cal 1b  KULXAR  for  the  targeting  of  the  nulti  conic  trajectory. 
It  then  returns  control  to  PRELIM . 


LUBA  Flow  Chart 


1 


Jr . 
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o 

SUBROUT IKE  LUNCON 

PURPOSE!  TO  COMPUTE  THE  ACTUAL  VALUES  OF  THE  TARGET  PARAMETERS 
(A,  BDT,  BOR)  FOR  A LUNAR  PATCHED  CONIC  TRAJECTORY 
DETERMINED  BY  CONTROL  VALUES  OF  ALPHA,  DELTA,  AND  THETA* 

CALLING  SEQUENCE!  CALL  LUNCON(ALPHAI fDELTAI .ThETAI, AM,BDT,BDR, 

SIGNAL,  ITR) 

ARGUMENTS!  ALPHAI  I ANGLE  DEFINING  PERIGEE  OF  TRANSFER  CONIC 

(RAO) 

DELTAI  X DELINATION  OF  LSI  POINT  (RAD) 

THETAI  I RIGHT  ASCENSION  OF  LSI  POINT  (RAD) 

AH  0 SEMI  MAJOR  AXIS  OF  LUNAR  CONIC 

BDT  0 IMPACT  PARAMETER  OF  LUNAR  CONIC 

BDR  0 IMPACT  PARAMETER  OF  LURAR  CONIC 

SIGNAL  I/O  NOMINAL  LAUNCH  AZIMUTH  OR  THAT  REQUIRED 

ITR  0 OUTPUT  ITERATION  COUNTER 

SUBROUTINES  SUPPORTED!  LUNTAR 

SUBROUTINES  REQUIRED!  CAREL  IMPACT 

LOCAL  SYMBOLS!  ALPHA  ALPHAI  IN  DEGREES 

AOUT  TEMPORARY  LOCATION  FOR  AH 

CC  ANGULAR  MOMENTUM  OF  THE  EARTH  CENTERED 

TRANSFER  CONIC  j 

CDEL  COSINE  OF  DELTAI  ! 

CECC  ECCENTRICITY  OF  THE  EARTH  CENTERED  ! 

' TRANSFER  CONIC 

COSDEC  COSINE  OF  DECLXN  I 

i 

COSPL  COSINE  OF  PHIL  j 

COSPS  INTERMEDIATE  VARIABLE  TO  TEST  FOR 

VXGLATIN  OF  SIGNAL  CONSTAIMT 

COSSIG  COSINE  OF  SIGNAL 

CP  SEHI-LATUS  RECTUM  OF  EARTH  CENTERED 

TRANSFER  CONIC 


i 
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UZHCGB-B 


CS HA  SEMI -MAJOR  AXIS  Of  EARTH  CENTERED  TRANSFER 

CONIC 

CT  COSINE  OF  THETAI 

DELTA  DELTAI  IN  OEGREES 

EM  ECCENTRICITY  OF  LUNAR  CONIC 

CAM MI  INTERMEDIATE  ANGLE  USED  TO  COMPUTE  EARTH 

CENTERED  TRANSFER  CONIC 

I INDEX 

PHIL  LATITUDE  OF  LAUNCH  SITE 

POS  SPACECRAFT  POSITION  AND  VELOCITY  AT  LSI 
POINT  IN  M '-CENTERED  EARTH  EQUATORIAL 
COORDINATE* 

PPM  OUMHY  VARIA  LE  FOR  CALL  CAREL 

QQN  DUMMY  VARIABLE  FOR  CALL  TO.  CAREL 

RAD  RADIANS  TO  DEGREES  CONVERSION  FACTOR 

RHAG  MAGNITUDE  OF  THE  RI  VECTOR 

a 

ROUT  VELOCITY  AT  LSI  IN  GEOCENTRIC  EQUATORIAL 
SYSTEM 

RPH  RADIUS  OF  PER I APS IS  OF  LUNAR  CONIC 
SDEL  SINE  OF  DELTAI 

SHAT  UNIT  VECTOR  POINTING  FROM  THE  EARTH  TO  THE 
POINT  OEFINEO  BY  OELTAIv  THETAI 

SIGH  SIGNAL  IN  DEGREES 

SINDEC  SINE  OF  DECLIN 

SINPS  INTERMEDIATE  VARIABLE  USED  TO  TEST  FOR 
VIOLATION  OF  SIGNAL  CONTRAINT 

SINSIG  SINE  OF  SIGNAL 

SX  SINE  OF  THETAI 

TAM  TRUE  ANOMALY  OF  THE  LUNAR  CONIC 
CORRESPONDING  TO  THE  RSI  VECTOR 
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I 


i. 


LDBCOS-C 


3 

TFLP  TIME  OF  FLIGHT  FROM  PERXAPSIS  CORRESPGND- 
ING  TO  THE  RSI  VECTOR 

THETA  THETAI  IN  DEGREES 


VMAG  SPACECRAFT  VELOCITY  MAGNITUDE  USED  TO 
CALCULATE  OECLIN 

HHAT  UNIT  VECTOR  NORMAL  TO  THE  EARTH- PHASE 

NMAG  ANGULAR  MOMENTUM  CONSTANT 

NM  ARGUMENT  OF  PERIAPSIS  OF  THE  LUNAR  CONIC 

NHM  OUMMY  VARIABLE  FOR  CALL  TO  CAREL 

XHAT  SAME  AS  SHAT  VECTOR 

XIM  INCLINATION  OF  THE  CONIC 

XNH  LONGITUDE  OF  THE  ASCENDING  NODE  OF  THE 
LUNAR  CONIC 


THAT  CROSS  PROOUCT  QF  THE  UIIAT  ANC  XHAT  VECTORS 


COMMON  COMPUTED/ USED I RI  RSI 


COMMON  COMPUTED*  OECLIN 


COMMON  USED* 


EMU  EQLQ 

PHILS  RMO 
TSPH  TNO 


KOAST  NINETY  ONE 
RPE  SIGMA  THU 
ZERO 


LOXCOK-1 


LUSCOS  Analysis 


The  point  of  intersection  of  the  Berth- centered  conic  with  the  lunar 
sphere  of  Influence  (LSI)  Is  determined  by  the  angles  and  6. 
Relative  to  the  moon  in  Earth- equatorial  coordinates  that  point  la 


Rgj  coed  cos  0 
Rgj  cos  £ sin  6 
*SI  ®in<5 


(1) 


where  Eg  ^ is  the  radius  of  the  LSI.  Relative  to  the  earth  that  point  Is 

K - S - *«  «> 

where  6m  is  the  radius  vector  to  the  center  of  tne  moon  at  the  time  of 
LSI  intersection  tg ^ in  earth  equatorial  coordinates. 

there  are  at  most  two  planes  which  contain  6^"  and  satisfy  tne  launch 

latitude  0 and  azimuth  L constraints.  Let  ft  denote  the  unit  normal 
to  either  of  these  planes.  Now  let  6^,  0L  denote  the  unit  vector, 

longitude,  and  latitude  of  the  launch  site.  Construct  a local  horizon 
coordinate  system  at  the  launch  site  as  indicated  In  Figure  1. 


> 


Figure  1.  Local  Horizon  Coordinate  System 
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LUNCGN-2 


^ A a 

Here  ^2^  « la  normal  to  in  the  £-0-^  plan*,  and  ^ *^h* 

In  the  local  horizon  system,  the  position  and  velocity  are  vary  simply 
repreaentad 

tr  - * [o.  o.  3 T 

^ T (3) 

7^  " v(co«i  slnX  , coad  cosX  , sia3Q 

where  X la  the  launch  azimuth  and  & la  the  declination  vrt  the  local 
horizontal.  Thus 


cos  X 
a lnX 


ft  . JSjlS 
h \K*K 


The  tram  formation  matrix  converting  a vector  in  the  local  horizon  system 
to  the  equatorial  system  Is 


T - [-sin  0 


■sin  0^  cos  0^  coa  0^  coa  0^1 


cos  -sin  0^  cos  0^  coa  0L  sin  0^ 


coa  0. 


a In  0, 


Therefore  since  ^ ■ T , the  z- component  of  W in  the  equatorial 
coordinate  system  Is 

- coa  0^  slnX  (6) 

Since  ^ is^a  unit  normal  It  must  satisfy  both  “ 1 and  " 0 

where  £ - — S . Solving  for  the  two  remaining  components  of  0, 

q 


ft  (ft2  + ft2) 

■y  t y z - x N z z 7 


a2  2 

*x  + Sy 


<V  • $ t +H  ) 
V - y y z z 


To  eliminate  the  ambiguity  of  sign  In  (7)  the  short-coast  plane  corresponding 
to  the  negative  sign  is  used.  Note  that  (7)  alto  Imposes  a constraint  on 
tha  launch  azimuth 


LUKCQS-3 


*'t 


■ 


• in2!  £ 


l-*S 

t 

— T~ 

COS  4 


(») 


Mow  choose  ^ -ft  x ft  to  complete  a right  hand  system  ft,  ft).  Then 
the  position  at  LSI  relative  to  the  earth  is  (EL^,  0,  0).  Mow  let  a 

determine  the  perigee  point  in  the  orbital  plane  ft  - 0)  measured 
counterclockwise  from  the  -5  axis.  Then  the  perigee  point  is  (~rp  cose, 

-Tp  sin  a , 0)  where  ••  is  the  parking  orbit  radius  (input).  Therefore 
the  true  anomaly  o*  the  earth  centered  conic  at  the  LSI  is  given  by 


f 


SI 


The  two  equations 


- iso  - a. 


\ 


a(l  - e2) 
1 + e cos  f 


and  r 

P 


solved  simultaneously  for  the  semi-major  axis  a 
of  the  unique  earth  centered  conic 


e 

& 


rp  - h cos  £SI 


(10) 


- a (1  - e)  may  be 
and  eccentricity  e 


(11) 


a 

8 


(12) 


Thus  the  velocity  of  the  earth  centered  conic  at  the  LSI  is  in  the 
(fi,  ft)  system 


\J  a(l-e2)  e sin  f 

SI 

*a(l-e2)  / Rj 
0 


(13) 


Transforming  to  the  earth 


S 

s 


equatorial  coordinate  system 


D V 
z z 


(14) 


* 


r 
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Sow  If  (S^,  V^q)  are  the  position  and  velocity  of  the  soon  et  t 
Sarth-cantared  coordinates  and  (8q,  Vq)  are  the  position  and  velocity  of 
the  spacecraft  at  t8z  then  the  state  of  the  spacecraft  with  respect  to 
the  noon  at  tg ^ is  in  earth  equatorial  coordinates 


5-Si 

V-’Sq 


<Ii) 


Using  the  tr  sue  formation  matrix  0^^  defining  transformations  from 
earth  equatorial  to  lunar  equatorial  the  state  in  the  li)  system  is 


^ " ^EQLQ  ^Sl 
Vsq  “ ^EQLQ  *81 


(16) 


The  impact  plane  parameters  B*T  and  B*E,  and  the  inclination 
may  now  be  computed  by  calling  subroutines  ACTB  and  CABEL. 


LUHTAfc-A 


SUBROUTINE  L UNTAR 


PURPOSE!  TO  GENERATE  A PATCKEO  CONIC  TRAJECTORY  FOR  LUNAR 

MISSIONS  CONSISTENT  MXTN  TARGET  PARAMETERS  AT  THE  NOON 
OF  (ACA,  RCA,  XCA,  TCA)  AND  LAUNCH  PARAMETERS  (PHIL, 
TKCTAL,  SIGNAL) « 

CALLING  SEQUENCE*  CALL  LUNTAR 

SUBROUTINES  SUPPORTED!  LUNA 


SUBROUTINES  REQUIRED! 
LOCAL  SYMBOLS!  AA 


ALNGTH 
ALPHA  I 

ALPI 

AUDAY 
A US 
AU 

BDR 

BDT 

BINC 

DELI 

DELTAI 

BELT AO 

OELT 

DEL 


LUNCON  EPHEH  IMPACT  MATIN  ORB 
PECEQ 

SEMI-HAJOR  AXIS  OF  THE  LUNAR  CONIC  FOR  THE 
NOMINAL  TRAJECTORY 

SANE  AS  AU 

REFINED  ANGLE  (RADIANS)  0EFIN1NG  POSITION 
OF  PERIGEE  ON  THE  TRANSFER  CONIC 
(NOMINALLY  SET  TO  FIVE  DEGREES) 

PERTURBED  VALUE  OF  ALPHAI  USEO  TO  SOLVE 
FOR  RCA,  ICA,  ACA 

CONVERTS  KM/SEC  TO  AU/OAY 

SAME  AS  AU 

CONVERTS  KILOMETERS  (KM)  TQ  ASTRONOMICAL 
UNITS  (AU) 

B DOT  R FOR  THE  NOMINAL  TRAJECTORY 

8 DOT  T FOR  THE  NOMINAL  TRAJECTORY 

OBTAINABLE  INCLINATION  USEO  TO  CALCULATE 
QESIREO  B DOT  T,  B DOT  R 

PERTURBEO  VALUE  OF  DELTAI  USEO  TO  SOLVE 
TOR  RCA,  ICA,  ACA 

REFIKEO  ANGLE  (RADIANS)  QEFXNIKG  DECLIN- 
ATION OF  THE  LSI  POINT  (NOMINALLY  SET  TO 
BELT AO) 

DECLINATION  OF  THE  MOONS  POSITION  AT  TIKE 
TSI 

TIME  FROM  TSI  TO  TCA  IN  SECONOS 
REFINING  VALUES  FOR  ALPHAI,  OELT AI,  TKETAI 


335 


LUKTAX-B 


DEMON  INTERNED! ATE  VARIABLE  USED  TO  LIMIT  THE 
OEL  VALUES  FOR  EACH  ITERATION 

ECC  OESIRED  ECCENTRICITY  OF  THE  LUNAR  COMIC 

ECEO  TRANSFORMATION  MATRIX  FROM  ECLIPTIC  TO 
EARTH  EQUATORIAL 

ECLQ  TRANSFORMATION  MATRIX  FROM  ECLIPTIC  TO 
LUNAR  EQUATORIAL 

ERR  VECTOR  OF  DIFFERENCES  BETWEEN  OESIREO  AND 
NOMINAL  VALUES  OF  B DOT  T,  B DOT  R,  ACA 

ITAR  LOGIC  CONTROLLING  INOICATOR 

«1  IMPROVE  ACA  ONLY 

■2  IMPROVE  RCA,  ICA,  ACA 

ITER  ITERATION  COUNTER  FOR  NOMINAL  TRAJECTORIES 

IT  ITERATION  COUNTER  FOR  PERTURBED  TRAJECT- 

ORIES 

I INDEX 

J INDEX 

K IMOEX 

ONEMAT  UNIT  DUMMY  MATRIX  FOR  CALL  TO  IMPACT 

PAI  DUMMY  VARIABLE  FOR  CALL  TO  LUNCOM  WHEN 

IT  AR*L 

PARP  OUMMY  VARIABLE  FOR  CALL  TO  LUNCON  WHEN 
IT  AR»1 


PART  A 

PARTM 

PARTX 

PARTY 

PART2 

PHI 


INTERMEDIATE  VARIABLE  USED  TO  REFINE  ACA 
WHEN  ITAR*1 


INTERMEDIATE  VARIABLE  USED  TO 

INTERMEDIATE  VARXA8LE  USED  TO 

INTERMEDIATE  VARIABLE  USED  TO 

INTERMEDIATE  VARIABLE  USED  TO 

MATRIX  RELATING  PERTURBATIONS 
DELTA!,  AND  THETAI  TO  CHANGES 
B OOT  R,  AND  ACA 


COMPUTE  DELT 

COMPUTE  DELT 

COMPUTE  DELT 

COMPUTE  DELT 

IN  ALPHAI, 

IN  B DOT  T, 


UAftU-C 


PSI  TARGETING  MATRIX  RELATING  PERTURBATIONS 
IN  B DOT  T,  0 DOT  R«  AND  ACA  TO  CHANGES 
IN  ALPHAI,  OELTAI,  AND  THETAI 

PTAR  PERTURBED  BALUES  OP  AA,  BDT,  BOR,  USED  T9 
CALCULATE  PHI 

RAO  CONVERTS  DEGREES  TO  RADIANS 

RMAG  MAGNITUDE  OF  THE  RMQ  VECTOR 

SIGNAL  LAUNCH  AZIMUTH  SET  IN  LUNCON  (NOMINALLY 
90  DEGREES) 

TAR  NOMINAL  VALUES  OF  AA,  BDT  AND  BOR  USED  TO 
CALCULATE  PHI 

THEI  PERTURBED  VALUES  OF  THETAI  USED  TO  SOLVE 
FOR  RCA,  ICA,  AND  ACA 

THETAI  REFINED  ANGLE  (RADIANS)  DEFINING  RIGHT 

ASCENSION  OF  THE  LSI  POINT  (NOMINALLY  SET 
TO  THETAO) 

THETAO  RIGHT  ASCENSION  OF  THE  MOONS  POSITION  AT 
TIME  TSI 

TM  CONSTANT  VALUE  OF  SECONDS  PER  OAY 


TSICA  DUMMY  ARGUMENT  FOR  CALL  TO  IMPACT 


COMMON  COHPUTEO/USEDl 

OTAR 

EQLQ 

ITAG 

RMQ 

RSI 

i 

THU 

TSI 

COMMON  COMPUTED! 

• 

EMU 

NO 

RME 

COMMON  USED* 

BCON 

OECL1N 

FIVE 

ONE 

OTAR 

PC  ON 

PMASS 

RCA 

SMA 

TCA 

TSPM 

TTOL 

TMO 

XP 

ZERO 
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LUHTAR-i 


LUSTAR  Analysis 


LUHTAR  generates  * patched  ccmlc  trajectory  arriving  at  cloeeat  approach 
to  ghe  Moon  at  a specified  time  t^  and  meeting  prescribed  target 

valuta  at  that  point  aa  well  as  standard  launch  quantities.  The  target 
parameters  are 


t 

CA 

rCA 

1CA 

aCA 


Julian  date  of  required  eloeeat  approach  (CA) 
referenced  1900 
Radius  of  CA 

Inclination  (relative  to  lunar  equator)  at  CA^ 
Semi-major  axis  at  CA 


The  launch  parameters 

jS  Launch  site  latitude 

Jm 

8 launch  site  longitude 

Xe 

£,  Launch  azimuth  (nominally  set  to  90°) 

la 

Tp  Parking  orbit  radius 

The  eccentricity  of  the  moon-centered  hyperbola  may  be  computed 


e 

CA 


(1) 


where  a < 0.  The  hyperbolic  time  4t  to  go  from  R (radius  of  lunar 
CA  SI 

sphere  of  influence  (LSI))  to  perlapsls  may  be  computed  from 


At  - aCA*  eCA> 


(2) 


vhere  ft  is  the  lunar  gravitational  constant.  The  time  at  which  the 

n 

probe  should  intersect  the  LSI  is  then 


v> 

(3) 


> 


Thr  inclination  mast  be  specified  according  to  the  format  described  in 
IMPACT.  Por  0<i<90°  the  inclinations  +i  prescribe  poaigrade  orbits 
while  180  +i  define  retrograde  orbits.  The  positive  signs  denote  approaches 
from  the  north,  the  negative  signs  designate  southern  approaches. 


V 


-L 


LUNTAR-2 


Tha  position  and  velocity  VME  of  the  moon  at  tgj  relative  to  the 


earth  in  earth  ecliptic  (EC)  coordinates  are  computed  by  railing  ORB  and 
EFHSK,  Trana format ion  matri'ee  ^ECEq  and  defining  tranaformationa 


from  1C  to  IQ  (earth  equatorial)  and  EQ  to  IQ  (lunar  equatorial)  respectively  * 
are  then  computed  by  PECEQ.  The  position  and  velocity  of  the  moon  in  the 
SQ  system  axe 


t - T v 

MQ  ECZQ  ME 

v - ? Y 

MQ  ’"eCEQ  ME 


Call  the  point  of  intersection  of  the  vector  R^  with  tne  ESI  the  bullaeye 

point.  Then  in  moon-centereO  Earth- equatorial  coordinates  the  vector  to 
the  bullaeye  point  Is  given  by 


18  ' '{%)  *“ 


Prom  this  vector  one  can  calculate  a set  of  angular  coordinates  ( j , 9 ) 

o o 

of  the  bullseye  point.  Any  other  p nnt  on  the  LSI  is  determined  by  giving 
general  coordinates  ( <5  , 9)  - ( dQ  + At) , 0q  + 4©). 


Now  let  such  a set  of  coordinates  by  given.  They  determine  a vector  R 

I 

from  earth  to  the  LSI  (in  the  EQ- system).  Vue  vector  R^  along  with  the 

launch  parameters  0^,  9^,  then  determines  tae  plane  of  the  Eartn-LSl 

transfer  (see  LUNCON).  Nov  Let  a be  measured  coun'er-cloclcvise  in  that 
plane  from  “^r*  The  parameter  a specifies  the  location  of  the  perigee 

point  of  the  transfer  conic,  thus  the  vector  to  perigee  is  fixed  as  Y 

? 

where  the  perigee  magnitude  r Is  fixed  as  input.  The  vectors  Y and 

•w  p 7 

Rj  then  determine  a unique  conic  for  the  Earth- LSI  phase  (see  UJNCGN). 

Let  the  state  at  the  LSI  on  that  conic  (relative  to  Earth- equator i \1  coordin- 
ates) be  denoted  by  Y^.  The  state  relative  to  the  moon  may  then  be 

computed  as 


Y. 


(6) 
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LiIHTAR-3 


Figure  1.  Lunar  Patched  Conic  Targeting 


Thua  the  elements  relative  to  toe  moon  may  bo  computed  from  standard  conic 
formula.  The  three  angles  (6.  8,  a)  form  a _t  of  independent  controls 
to  be  vari«d  to  meet  the  three  constraints  (rr^,  1^ . a^).  The  controls 

are  depicted  in  Figure  1. 

LUKTAS.  uses  the  standard  Hevton-Raphson  algorithm  to  refine  the  controls  to 
meet  the  constraints.  This  targeting  la  done  in  two  stages.  In  the  first 
stage  the  controls  i and  8 are  held  fired  at  the  bnllseye  point  ( 

while  a is  varied  until  the  semi-major  axis  target  a is  mat.  Then 

all  three  controls  are  varied  to  satisfy  the  three  target  constraints . The 
preliminary  targeting  of  a^  is  essential  to  the  success  of  the  procedure. 

Oac%  the  In  initial  targeting  is  completed,  the  semi  major  axis  of  future 
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Iteration*  in  the  second  stage  will  not  vary  ouch  from  the  target  value 
a_. . Tor  such  iterates  the  excess  hyperbolic  velocity  at  the  moon  will  be 

generally  constant.  This  permits  tne  substitution  of  the  auxiliary  impact 
plan*  parameters  B*T  and  B*R  for  the  less  linear  parameters  of  r^  and  - 

^CA  IMPACT) . In  LUNT&R  the  impact  plane  parameters  are  referenced  to 

the  IQ  system. 

The  procedure  may  now  be  described  in  detail.  Suppose  tnat  in  the  first 
stage  of  targeting  the  current  value  of  or  Is  a^.  Using  the  controls 

(a^,  <5^ , 9p)  the  resulting  semi-major  axis  is  found  to  be  a^  (LUhCON) . 

A perturbed  value  for  the  first  control  is  then  used  (d„  + Act,  4,8) 

K 0 0 

producing  a perturbed  value  of  semi-major  axis  (a^  + 4a).  The  (k+l)at 
value  of  ct  is  then  given  by  the  standard  numerical  differencing  approximation 


a 


R+l 


Act 
A S 


(aCA  " 


(7) 


The  second  stage  of  the  targeting  of  the 
vector  analogue  of  the  above  procedure. 

la  input  to  LUNCGif  to  obtain  the  current 


lunar  patched  conic  uses  the 
The  current  iterate  (a 0^,  8^ 

target  values  (a  , B-T  , B-R  ). 

K K K 


The  target  values  B-T  and  B-R  are  determined  from  subroutine  IMPACT 

and  the  errora  of  the  kth  iterate  are  computed  (e  , e__,  e„).  If  all 

a BT  BR 

three  errors  are  within  tolerances,  the  procedure  is  terminated.  Other- 
wise the  sensitivity  matrix  0 is  computed  by  numerical  differencing  as 
In  the  first  stage 


) 


! Aaa 

j ^ 

AaJ 

At 

Aa9 

46 

| Ab-t 

45-i4 

Ab-t 

e 

j Aa 

At 

A« 

l 

| Ab-r 
! a 

Act 

A4 

A 9 

The  inverse  of  9 is  the  targeting  matrix.  The  k+1  iterate  is  then  defined 
to  be 


This  procedure  Is  repeated  an til  convergence  is  ec&leved. 


- w 


V 


MAIB-A 


PRO ORAN  MAIN 

PURPOSE I TO  CONTROL  THE  SIMULATION  OVERLAY  SCHEME 

SUBROUTINES  SUPPORTED  I BONE 

SUBROUTINES  REQUIRED  I MILS  SDTCL  PRNTS4 

LOCAL  SYMBOLS  I IRUNX  TOTAL  ItUNBER  OF  OATA  CASES 

I RUN  OATA  CASE  COUNTER 
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MATXK-A 


; t 

' j' 


i 


SUBROUTINE  MATIN 

PURPOSE  I TO  COMPUTE  THE  INVERSE  OF  A MATRIX. 

CALLING  SEQUENCE!  CALL  HATINIA*R»N) 

ARGUMENTS  A(N,N)  I MATRIX  TO  BE  INVERTED 

R(NfN)  0 RESULTANT  INVERSE  OF  MATRIX  A 
N I DIMENSION  OF  A ANO  R 


SUBROUTINES  SUPPORTED!  HYELS  NAVM 

TARHAX  GUIO 

SUBROUTINES  REQUIRED!  NONE 


BIAIM  POICOM  GUISS 
LUNTAR  MULTAR 


LOCAL  SYMBOLS!  AL 

ALBAR 

B 

DETR 

G 

IX 
XR 

MIXI 

MIXJ 

HIXL 

S 

X 

XOFF 

COMMON  USED! 


A ILL)  ♦ S (INTERMEDIATE  VARIABLE) 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VECTOR 
INTERMEDIATE  VECTOR 
INTERMEDIATE  VECTOR 
INTERMEDIATE  VECTOR 
DIMENSION  OF  A 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
EM7  EM9  ONE  ZERO 
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SUBROUTINE  MEMO 

PURPOSES  COMPUTE  ASSUMED  MEASUREMENT  NOISE  COVARIANCE  MATRIX  IN 
THE  ERROR  ANALYSIS  PROGRAM 

CALLING  SEQUENCES  CALL  HENO (MMCODE, ICODE) 

ARGUMENTS  ICODE  I INTERNAL  CODE  USEO  TO  DISTINGUISH  BETWEEN 

THE  TWO  ALTERNATIVES  LISTED  ABOVE 

HHCOOE  I MEASUREMENT  MODEL  CODE 

SUBROUTINES  SUPPORTED*  ERR  ANN 

COMMON  COMPUTED*  R 


COMMON  USED* 


IMNF 


MNCN 


WEKO-1 


The  linearievd  obaervotion  equation  employed  by  the  navigation  process 
in  given  by 

4ik  . n/ix/ 

where  $1.  ie  the  measurement  deviation  froo  the  noe&nal  measurement,  H. 

* A * 

ia  the  augmented  observe tion  matrix,  ia  the  augmented  state 

deviation  froo  the  nominal  augmented  state,  and  ^ is  the  assumed 

measurement  noise. 


The  function  of  subroutine  MSXjfJ  is  to  compute  the  measurement  noise 
covariance  matrix  R^  which  describes  the  statistics  of  7)^.  The  constant 

variances  for  the  measurement  noises  associated  with  all  available 
measurement  devices  are  stored  in  the  vector  MNCN.  Subroutine 
selects  the  appropriate  elements  from  this  vector  to  construct  the 
measurement  noise  covariance  matrix  R^. 


KEKO-2 
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KEKOS-A 


SUBROUTINE  MEMOS 

PURPOSE*  COMPUTE  ASSUMED  ANO  ACTUAL  MEASUREMENT  NOISE  COVARIANCE 
MATRICES  IN  THE  SIMULATION  PROGRAM 

CALLING  SEQUENCE!  CALL  MENOS(MMCOOE»ICODE> 

ARGUMENT*  ICOOE  I INTERNAL  CODE  USED  TO  DISTINGUISH  BETWEEN 

THE  TWO  ALTERNATIVES  LISTED  ABOVE 

MHCOOE  I MEASUREMENT  MODEL  CODE 
, . » t ' i 

• SUBROUTINES  SUPPORTED*  SIMULL 

CO  IMON  COHPUT ED/USED t R 

COMMON  COMPUTED*  AR 


COMMON  USED* 


AVARM  IAMNF 


IMNF 


MNCN 


ZERO  » 


XXBOS-1 


KEM0S  Analyaia 

\ 

Th«  linearised  observation  equation  employed  by  the  navigation  process  is 
given  by 

4ik  - V 4*/  . ,k 

where  3Y^  is  the  neasurement  deviation  froa  the  nominal  measurement , H^A 
is  the  augmented  observation  matrix,  iX^A  is  the  augmented  state  deviation 
froa  the  nominal  augmented  state,  and  is  the  assumed  Beasurement  noise. 

The  actual  measurement  Y^*  is  given  by 


\ * bk  ♦ v* 


where  is  the  ideal  measurement,  which  would  be  Bade  in  the  absence  of 

instrumentation  errors,  is  the  actual  measurement  bias,  and 

represents  the  actual  measurement  noise. 


Subroutine  MINOS  performs  two  functions.  It’s  first  function,  which  is 
identical  to  that  of  subroutine  M3*0,  is  to  compute  the  measurement  noise 
covariance  matrix  which  describes  the  statistics  of  noise  Tj The 

constant  variances  for  the  assumed  measurement  noise.,  associated  with  all 
available  measurement  devices  are  stored  in  the  vector  MNCM.  Subroutine 
KENOS  selects  the  appropriate  elements  from  this  vector  to  construct  the 
measurement  noise  covariance  matrix  &,  . 


The  second  function  of  KENOS  ia  to  compute  the  measurement  noise  covariance 
matrix  which  describes  the  statistics  of  the  actual  noise  The 

constant  variances  for  the  actual  measurement  noises  associated  with  all 
available  measurement  devices  are  stored  in  the  vector  AVARM.  Subroutine 
AVAR*  selects  the  appropriate  elements  from  this  vector  to  construct  the 
measurement  noise  covariance  matrix 
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i*?? -C4-  < 


Flew  Chart 


Coapute  *k.  Se 

WENp  flow  chart 
for  details . 


return 


Compute  the  R^  matrix 

for  3 a tar-planet 
angle  measurements. 


ENTER 


U\”K 

to  be  computed? 


Zero  out  R matrix 


MMC0D2  - ? 


Set  to  the 
previously  computed 


10,11,12,13 


1,2,3, 4, 5, 6, 7, 8 


MMC0DE  even? 


RETURN 


Compute  the  matrix 

for  a range- rate  meas- 
urement from  the 
appropriate  station. 


Compute  the  R^  matrix 

for  a range  and  range 
rate  measurement  from 
the  appropriate  sta- 


RZTURN 


11,12,13 


Coapute  the  matrix 

for  the  appropriate 
star-planet  angle 
aeasuremeat. 


Coapute  the  matrix 

for  an  apparent  planet 
diameter  measurement. 


MULCOA-A 


SUBROUTINE 
PURPOSE! 


HULCOM 

TO  PROPAGATE  A SET  OF  CARTESIAN  COORDINATES  ALONG  A 
LUNAR  MULTI-CONIC  TRAJECTORY  OVER  A SPECIFIED  TIME 
INTERVAL* 


CALLING  SEQUENCE!  CALL  HULCON(SEI , TLX,TF , DT, SHF) 


I 

I 

I 

I 

0 


ARGUMENTS!  SEI<6) 

TLI 
TF 
OT 

SHF (6) 
SUBROUTINES  SUPPORTED! 
SUBROUTINES  REQUIRED! 
LOCAL  SYMBOLS!  ALNGTM 

A 

COSF 

DF 

01 

EMM 

EH 

IDO  HE 


INITIAL  SPACECRAFT  GEOCENTRIC  STATE 
INITIAL  INJECTION  TIME  (JO  EPOCH  1950) 

TINE  INTERVAL  OF  PROPAGATION 

STEP  SIZE  USEO  IN  HULTICQNXC  PROPAGATION 

FINAL  SPACECRAFT  SELENOCENTRXC  STATE 

HULTAR 

CPROP  EPHEH  ORB 

CONVERTS  KILOMETERS  TO  ASTRONOMICAL  UNITS 

PERTURBING  ACCELERATION  VECTOR  OF  THE  MOON 
OVER  THE  ITERATION  INTERVAL 

COSINE  OF  TRUE  ANOMALY  ON  SELONOCENTRIC 
CONIC  AT  END  OF  ITERATION  INTERVAL 

FINAL  TIME  USEO  IN  ITERATION  INTERVAL 

INITIAL  TIME  USEO  IN  ITERATION  INTERVAL 

MAGNITUDE  OF  FIRST  THREE  ELEMENTS  OF  EM 

GEOCENTRIC  ECLIPTIC  STATE  OF  MOON 

STOPPING  CONDITION  INDICATOR 

*0  PROPAGATION  CONTINUES 
•1  STOPPING  CONDITION  REACHED 


I XNOEX 

TIM  JULIAN  DATE  OF  FINAL  TIME  ON  THE  ITERATION 

INTERVAL 

TN  CONVERTS  SECONDS  TO  DAYS 

M SFACECRAFT  VELOCITY  VECTOR  MITH  RESPECT  TO 

EARTH  AND/OR  MOON  BEFORE  ANO  AFTER  LUNAR 
PERTURBATIONS  AT  01  ANO  DF 
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KULCON-B 

XH  MAGNITUDE  OF  THE  X VECTOR 

X GEOCENTRIC  POSITION  OF  SPACECRAFT  AT  DI 

AND  GEOCENTRIC  POSITION  OF  MOON  AT  DF 

Y GEOCENTRIC  VELOCITY  OF  SPACECRAFT  AT  01 

AND  GEOCENTRIC  VELOCITY  OF  MOON  AT  OF 

2 SPACECP  T POSITION  VECTOR  NITH  RESPECT  TO 

EARTH  . '/OR  MOON  AT  01  AND  OF  BEFORE  AND 
AFTER  LUNAR  PERTURBATIONS 

COMMON  COMPUTED  I NO 

COMMON  USED!  EMU  THU  TMO  XP  ZERO 


MULCC*-1 


KUI£*N  Analysis 


The  equations  of  motion  of  a spacecraft  traveling  under  tha  influence 
of  tha  aarth  and  moon  may  b«  written 


(1) 


where  T*j»  arc  the  position  vcctora  of  the  apacecraf t-to-earth, 

tha  apacecraf t-to-moon,  and  tha  moon- to- fir  tl  reipectivsly  and 

ara  tha  gravitational  conatanta  of  the  eart^i  and  moon  respectively. 


The  multi-conic  approximation  of  the  solution  to  (1)  proceeda  as  follows. 
Let  rg  it*  "^g  ^ ha  the  geocentric  state  at  some  time  This  state 

is  propagated  by  conic  formulae  to  obtain  jin(estiiaatf  of  the  geocentric 
state  at  time  + 4t  given  by  • 


To  account  foT  the  third  term  perturbations,  the  state  of  the  moon  relative 
to  the  earth  at  the  two  time  points  is  computed,  denoted  by  (eL.  , "v"  ) 

— » Qtgfc  £K9k 

•ad  k+1'  k+1^*  *vera8*  value  of  this  acceleration  is  than 

determined  from 


a - - -a 

2 


Sji.k  ^Bt.k+l3 


The  corrected  geocentric  state  la  then  given  by 


<2) 


" -j»*  , 1+  , , .2 

r **r  + — A ( / t) 

K,k+1  E,k+1  2 


*E,k+l  “ *^E,k+l  + A 


(3) 


The  effect  of  tha  direct  lunar  perturbations  is  then  added.  Tha  state 
of  the  spacecraft  relative  to  tha  moon  is  first  computed 

M,k+1  " rE,k+l  * 

(4) 

V - -Y 

K,k+1  I,k+1  IK,k+l 
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This  state  Is  then  propagated  linearly  backwards  in  time  over  the  tine 
interval  At  to  obtain 


*M,k+l  " 'fe.k+l 


Xk  " 


(5) 


fi 


This  state  is  now  propagated  forward  in  a selenocentrlc  conic  to  obtain 
a final  state  relative  to  the  noon  ("r^  ^+1 » ^ ) • The  geocentric 

state  of  the  spacecraft  at  tine  t^+^  afu'r  considering  all  terns  of  (1) 
Is  then  given  by 


r - r + R 

E,k+1  M,k+1  tt.lrfl 

v ■ v Hh  V 

E,k+1  .l,*+l  Qi,k+1 


(6) 


Ttu'  completes  one  cycle  of  the  multi-conic  propagation. 

The  multi-conic  propagation  proceeds  until  an  input  final  time  is  reached 
or  until  the  selenocentrlc  conic  passes  through  perlcynthion. 


i 

a 

I 


Reference : Byrnes,  0.  V.  and  Hooper,  H.  L, , Multi-Conic:  A rest  and 

Accurate  Method  of  Computing  Space  Flight  Trajectories, 
AA8/AZAA  Astrodynaalcs  Conference,  Santa  Barbara,  Cal,,  1970, 
A1AA  Paper  70-1062. 


MULTAR-A 


SUBROUTINE  MULTAR 

PURPOSE*  TO  CALCULATE  THE  TRAMSLUNAR  INJECTION  CONDITIONS  FROM 
TARGETEO  PATCHED-CONIC  CONDITIONS  AND  CALLS  VHP  TO 
PERFORM  THE  NOMINAL  TRAJECTORY  NEEDED  BY  HERAT* 

CALLING  SEQUENCE I CALL  KULTAR 


SUBROUTINES  SUPPORTED  I 
SUBROUTINES  REQUIRED I 

LOCAL  SYMBOLS  I AE 

ATARN 

ATAR 

ATOL 

BCOR 

BJ 

BSTEP 
CM  I 

DELP 

DELTM 

OELT 

OELV 

DV 

ECEQP 


LUNA 

HULCON  CAREL  ELCAR 

MATIN  ORB  PECCQ 


TRANSFORMATION  MATRIX 
TO  LUNAR  EQUATORIAL 


EPKEH  IMPACT 
TIME 


FROM  EARTH  ECLIPTIC 


SEMI-MAJOR  AXIS  OF  THE  EARTH-ECL IPTIC, 
TARGETED  PATCHED-CONIC  TRAJECTORY 

NOMINAL  VALUES  OF  THE  TARGET  VARIABLES 

DESIRED  VALUES  OF  THE  TARGET  VARIABLES 

TOLERANCES  OF  TARGET  VARIABLES 

MAXIMUM  STEPS  ALLOMEO  IN  ITERATIVE 
CORRECTION  OF  CONTROL  VARIABLES 

ZERO  TRUE  ANOMALY  USED  TO  DEFINE  PERIGEE 
OF  THE  TARGETED  PATCHED-CONIC  TRAJECTORY 

MULTI-COMIC  STEP  SIZE  (HOURS) 

SENSITIVITY  MATRIX  RELATING  PERTURBATIONS 
IN  CONTROL  VARIABLES  TO  CHANGES  IN  TARGET 
VARIABLES 

VALUE  USED  TO  PERTURB  TLI  FOR  CONSTRUCTION 
OF  CHI 

NOMINAL  TIME  FOR  PROPAGATION 

INTEGRATION  TItg  TO  BE  USED,  AND  TIME 
ACTUALLY  USED*  IN  THE  MULTI-CONIC 
PROPAGATION 

VALUE  USED  TO  PERTURB  VELOCITY  COMPONENTS 
OF  RT  FOR  COKMRUCTION  OF  CHI 

CORRECTION  ACTUALLY  ADDED  TO  CONTROL 
VARIABLES 


EECCQ  TRANSFORMATION  MATRIX  FROM  EARTH  ECLIPTIC 


MULT**- B 


TO  EARTH  EQUATORIAL 

EE  ECCEMTRXCITY  OF  THE  EARTH-ECLIPTIC, 

TARGETED  PATCHED-CONIC  TRAJECTORY 

ERR  ITERATE  ERRORS  IN  TARGET  CONDITIONS 

FAC  INTERMEDIATE  VARIABLE  USED  TO  CHECK  FOR 

MAXIMUM  STEP 

FMAG  INTERMEDIATE  VARIABLE  USED  TO  COMPUTE 
PHIA,  PHXB,  PHIC 

MYT  HYPERBOLIC  TIKE  TO  LUNAR  PERIAPSIS  (DAYS) 

IOATE  CALENDAR  OATE  OF  INJECTION 

1ST  INDICATOR  FOR  CONTROL  VARIABLE 

PERTURBATION 

IT  ITERATIONS  COUNTER 

I INDEX 

JERTH  INDEX  OF  EARTH  IN  F-ARRAY 

JHOON  INDEX  OF  NOON  IN  F-ARRAY 

J INOEX 

K INOEX 

NITS  MAXIMUM  NUMBER  OF  ITERATIONS  ALLONED 

NOEX  SAME  AS  JERTH 

PERMN  MINIMUM  PERTURBATION  OF  CONTROL  VARIABLES 
FOR  CONSTRUCTION  OF  CHI 

PERMX  .MAXIMUM  PERTURBATION  OF  CONTROL  VARIABLES 
FOR  CONST  RUCTION  OF  CHI 

PERT  PERTURBATION  VALUES  USED  TO  CONSTRUCT  CNI 

PHIA  TRANSFORMATION  MATRIX  FROM  RTN  TO  EC 

SYSTEM  AT  TLI 

PMIB  TRANSFORMATION  MATRIX  FROM  RTN  TO  EC 

SYSTEM  AT  PERTURBED  TLI 

PHIC  PRODUCT  OF  PHIS  AND  TRANSPOSE  OF  PHIA 

PPE  DUMMY  VARIABLE  FOR  CALL  TO  CAREL 


KULXUl-C 


PS  I TARGET  MATRIX  (INVERSE  OF  CHI)  RELATING 
PERTURBATIONS  IN  TARSET  'VARIABLES  TO 
CHANGES  IN  CONTROL  VARIABLES 

PTAR  PERTURBED  TARGET  VALUES 

PV  PREOICTED  CORRECTIONS  TO  CONTROL  VARIABLES 

QQE  DUMMY  VARIABLE  FOR  CALL  TO  CAREL 

RENAG  DUMMY  VARIABLE  FOR  CALL  TO  ELCAR 

REPET  MINIMUM  ALLOWABLE  INJECTION  TIME 

DIFFERENCE  IN  KTH  ANO  K*Z  ITERATIONS  TO 
AVOID  REPETITION-TRAP  CORRECTION 

RM  MAGNITUDE  OF  THE  SCM  POSITION  VECTOR 

RSE  INJECTION  STATE  IN  EARTH  EQUATORIAL  SYSTEM 
AT  TLI 

RS  ROTATED  INJECTION  STATE  FOR  TINE 

DIFFERENTIAL 

RT  INJECTION  STATE  USED  IN  PERTURBED  HULIT- 

COUIC  PROPAGATIONS 

SCM  FINAL  STATE  IN  \UNAR  ECLIPTIC  SYSTEM  ON 
THE  MULTI-CONIC 

SEC  SECONDS  OF  CALENDAR  DATE  OF  TLI 

STEP  MULTI-CONIC  STEP  SIZE  (SECONDS) 

STL I ORIGINAL  VALUE  OF  TLI,  RESTORED  FOR 

SUCESSIVE  ITERATIONS 

TAE  TRUE  ANOMALY  OF  EARTH-ECLIPTIC  TARGETED 

PATCHED- CONIC  TRAJECTORY 

TBR  OUMMY  VARIABLE  FOR  CALL  TO  IMPACT 

TBT  DUMMY  VARIABLE  FOR  CALL  TO  IMPACT 

TFP  TIME  OF  FLIGHT  FROM  PERIGEE  OF  THE 

e*~TH-EClIPTIC,  TARGETED  PATCKED-CONIC 
TRAJECTORY 

TXMM1  INJECTION  DATE  ON  K-l  ITERATION 

TIMM2  INJECTION  DATE  ON  K-2  ITERATION 


MULIAP-D 


TLX  INJECTION  JULIAN  DATE 

TTP  OUNNT  VARIABLE  FOR  CALL  TO  ELCAR 

VEMAG  DUMMY  VARIABLE  FOR  CALL  TO  ELCAR 

VX  NAGNXTUOE  OF  THE  SCH  VELOCITY  VECTOR 

NE  ARGUMENT  OF  PERIAPSIS  OF  THE 

EARTH-ECLIPTIC*  TARGETEO  PATCHED-CONIC 
TRAJECTORY 

Ml <E  OUNHY  ARGUMENT  FOR  CALL  TO  CAREL 

XIE  INCLINATION  CF  THE  EARTH-ECLIPTIC* 

TARGETEO  PATCMED-GONIC  TRAJECTORY 


XNE  LONGITUDE  OF  ASCENDING  NODE  OF  THE 

EARTH-ECLIPTIC*  TARGETEO  PATCMEO-CONIC 
TRAJECTORY 


CONN  ON  COMPUTED/ USED  I NO  RI 


COMMON  COMPUTED* 

I COORD 

RIN 

TIN 

COMMON  USED* 

ALNGTH 

CAI 

EMU 

F 

HALF 

KUR 

NBOO 

NB 

ONE 

RCC 

SHA 

TAR 

TCA 

TEN 

THU 

TM 

TSI 

TMO 

ZERO 
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XBLIAR-1 


KB1XA1  Analysis 


Let  the  earth  equatorial  a tat a of  the  probe  at  the  LSI  aa  computed  from 
the  patched  conic  targeting  be  denoted  "r^,  v^.  Subroutine  CASZL  is 

called  to  compute  the  conic  eleoenta  and  conic  time  from  perigee  At 
baaed  on  the  geocentric  conic.  The  time  of  injection  la  then  computed 

aa 

tTLI  " *SI  “ 


The  position  and  velocity  of  the  probe  at  *8  8lv*n  by  the  state 


along  the  conic  at  perigee  (true  anomaly  of  zero)  and  determined  by 


KLCA1  to  be 


TLI ’ TLI* 


If  $ 


ECBQ 


la  the  transformation  matrix  from 


the  EC  (earth  ecliptic)  to  the  BQ  (earth  equatorial)  system,  then  the 
patched  conic  injection  state  in  EC  coordinates  is 


T 

r $ r 

I ECBQ  TLI 

-»  T — *• 

V m A v 

I ECEQ  TLI 


(2) 


Since  the  earth  is  revolving  about  the  E-K  barycenter  in  time,  the  EC 
injection  state  oust  be  rotated  if  an  earlier  or  later  injection  time  is 
to  be  used.  The  necessary  rotation  matrix  may  be  easily  computed  through 
the  introduction  of  the  R-T-VJ  coordinate  system.  Let  the  state  of  the 
earth  at  some  time  t^  in  BC  (barycentric  ecliptic)  coordinates  be 

denoted  1^,  V^.  Construct  the  system  at  that  point  as 


A \ * ’ 

v - — 

k \K'\\ 


«> 


a A a 

The  transformation  matrix  from  the  B^-T^-W^  system  to  the  ecliptic  system 
to  the  ecliptic  system  is  then  given  by 


\ - 


v,  h : \ 


(4) 


the  state  of  the  earth 


At  a time 
ecliptic  coordinates  is  given  by  $ 


Sc+l 

and  the  transformation  from 


k+1 


in  BC  coordinates  is  given  by 

AAA 

the  R - T - W system  to 
k+1  k+1  k+1  7 

in  accordance  with  (4) . Injection 
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1 


■ n* 


MULIAR-2 


state*  «t  times  t.  and  tL^.  will  be  called  "equivalent*  If  they  are 
* r*’i  A a a < 

Identical  when  expressed  In  the  pertinent  R-T-V  system.  Therefore  if 
(r^,  v“k  ) Is  the  Injection  state  In  EC  coordinates  at  time  t^,  the 

equivalent  state  In  EC  coordinates  at  t^^  Is  given  by 


- 

rk+l 

m 

* 

i if 

wk+l,k 

— 

0 

— — 
k 

Vi 

0 

df 

W-I.k 

V 

k 

. - 

— 

J 

_ _ 

where  the  rotation  matrix  & Is  defined  by 


k+1  ,k 


(6) 


The  targeting  algorithm  used  by  MULTAR  may  now  be  described.  Let  the 
Injection  state  in  EC  coordinates  on  the  k-th  iteration  be  denoted 
(t^.,  r^,  vk  ).  This  state  is  propagated  forward  using  the  multi-conic 

propagator  HULCfh  to  determine  a final  state  "r^,  to  the  moon  In  ecliptic 


coordinates.  DtPACT  Is  then  called  to  compute  the  B-T^,  B-R^  and 
actually  achieved  on  the  trajectory  and  the  target  values  of  B** T 

k 


required  to  satisfy  the  1^  end  r^  constraints.  The  semi-major  axis 
a^  of  the  k-th  iterate  Is  computed  from  the  conic  formula 


a 


Vk2  1 
/ 


-1 


Errors  in  the  four  target  conditions 


At 


Ae. 

. 

a - a* 

4b>t 

■ B*Tk 

Ab-r 

»*k  B**  By 

4tCA 

* 

tCA,k”  fcCA 

(7) 


(8) 


1 i the  error  In  each  parameter  Is  less  than  the  allowable  tolerance,  the 
process  stops. 
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1 


& > 


A* . 


X0LU1-3 


-Si 


* 


f. 

r,: 


Xf  convergence  ha 8 not  been  achieved  a Newton- 8a phson  iteration  is  entered. 
The  four  controls  are  vL  . v“v  . \ * and  V For  thc  velocity  components 

x y z 

a perturbation  Av  is  added  to  the  pertinent  component  while  the  rest  of 
the  injection  state  is  held  '■cmstant  before  propagating  with  the  multi-conic. 
For  the  time  perturbation,  the  rotation  matrix  \P&  corresponding  to  the 
perturbed  time  t + ^t  (6)  is  first  computed.  The  injection  state  used 

in  the  perturbed  propagation  for  time  is  then  ^t^,  + dt,  r^,  ^ v^j  . 

A sensitivity  matrix  is  computed  using  the  results  of  the  numerical 
differencing: 


X - 


Aa 


where  in  the  term 


A&x 

Aay 

4v 

4v 

X 

ABT, 

y 

4v 

* 

X 

• 

A B R 

X 

4vx 

• 

^tCAx 

4rCA 

4v 

X 

At 

1 

~ 8 the  change  in  the  a t 

(9) 


target  parameter 


produced  by  the  variation  of  the  /3  control  component  and  4/3  is  the 
change  in  the  /?  control  component.  The  k+1  iterate  controls  are  then 

given  by 


Ac  - 


dv 

*; 

6v1 

d 1 


- X"1  At 


(10) 


The  k+1  injection  state  is  then  computed  by  first  determining  the  injection 
state  after  rotation  due  to  the  change  in  injection  time  and  then  adding 
the  injection  velocity  corrections 


Se+l  " *k  * 
"k+1  " V*  " 


dt 


I *k 


(U) 


k+1 


- *#  vk  + 


dv 


The  iteration  process  is  repeated  until  tolerable  errors  arc  met.  The  con- 
verged injection  state  is  then  Integrated  in  the  virtual  mass  trajectory. 
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MUXD-A 


SUBROUTINE  HUNO 

PURPOSE*  TO  CONFUTE  THE  AUGMENTED  PORTION  OF  THE  STATE  TRANSITION 
MATRIX  MHEN  THE  GRAVITATIONAL  CONSTANT  OF  THE  SUN  OR  OF 
THE  TARGET  PLANET  HAS  BEEN  AUGMENTED  TO  THE  BASIC  STATE 
VECTOR. 

CALLING  SEQUENCES  CALL  NUND (RI *RF*  POSS) 

ARGUMENTS  RF  I POSITION  A NO  VELOCITY  OF  THE  VEHICLE  AT  THE 

ENO  OF  THE  TIME  INTERVAL 

RI  X POSITION  ANO  VELOCITY  OF  THE  VEHICLE  AT  THE 

BEGINNING  OF  THE  TIKE  INTERVAL 


POSS  X DISTANCE  OF  THE  VEHICLE  FROM  THE  TARGET 
PLANET  AT  THE  INITIAL  TIME 

SUBROUTINES  SUPPORTED S PSIM 
SUBROUTINES  REQUIREOt  NTH 

LOCAL  SYMBOLS S IC  COUNTER  FOR  VARIABLES  AUGMENTED  TO  STATE 

VECTOR 

IPR  TEMPORARY  STORAGE  FOR  IPRINT 

* 

RPER  ALTERED  POSITION  AND  VELOCITY  OF  VEHICLE 
AT  FINAL  TIME 

SAVE  TEMPORARY  STORAGE  LOCATION  FOR  GRAVITA- 

TIONAL CONSTANTS  OF  SUN  AND  TARGET  PLANET 

COMMON  CGHPUTEO/USEDS  IPRINT  PMASS 

COMMON  COMPUTED!  TXU  TXXS 

COMMON  USED!  ALNGTH  OELHUP  DELMUS  XAUGDC  XAUGXN 

IAU6  NTHC  NTP  SPHERE  TM 
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KUHD-1 


KUND  Analysis 


Tha  nonlinear  equations  of  motion  of  the  spacecraft  can  be  written  symbol- 
ically ea 


" f ("x  ,yu  , t ) 


(1) 


where  * i«  the  spacecraft  position/velocity  state  and  /*.  is  » vector 
composed  of  the  gravitational  constants  of  the  Sun  and  the  target  planet. 


Suppoi 
0 


xx. 


and  9 


xu 


ish  to  use  numerical  differencing  to  compute  those  columns  of 
associated  with  gravitational  constant  biases  included  in  the 


augmented  state  vector  over  the  time  interval  t^  J . Let  6^  (t^.t^j) 

represent  the  column  associated  with  the  j-th  gravitational  constant  bias. 

We  assume  we  have  available  the  nominal  states  *x**(t^_^)  and  ~x*(t ^)  , which, 

of  course,  were ^obtained  by  numerically  solving  equation  (1)  using  nominal 
fl  . To  obtain  9j(t^,  vc  increment  the  j-th  gravitational  constant 

bias  by  the  peTtinent  numerical  differencing  factor  and  numerically 

r ■>  J 

integrate  equation  (1)  over  the  interval  j t^_^,  t^  to  obtain  the  new 

spacecraft  state  "x^(t^),  where  the  j-subscript  on  the  spacecraft  state 

indicates  that  it  was  obtained  by  incrementing  the  j-th  gravitational 
constant  bias.  Then 


ej  <V  -w  * 


(2) 


> 
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KAVM-A 


SUBROUTINE  NAVM 

PURPOSE*  TO  PROPAGATE  COVARIANCE  MATRIX  PARTITIONS  P,  CXXS,  CXU, 
CXV,  PS,  CXSU,  CXSV  FROM  THE  TIME  OF  THE  LAST  MEASURE- 
MENT OR  EVENT  TO  THE  PRESENT  TIME  USING  A CONSIDER  RE- 
CURSIVE ALGORITHM. 

CALLING  SEQUENCE*  CALL  NAVM (NR, XCOOE) 

ARGUMENT*  XCOOE  I INTERNAL  CODE  NHICH  DETERMINES  IF  A 

MEASUREMENT  IS  BEING  PROCESSED 

NR  I NUMBER  OF  ROMS  IN  THE  OBSERVATION  MATRIX 


SUBROUTINES  SUPPORTED*  SIHULL  SETEVS  GUISIH  PRCSiM  ERRANN 

SETEVN  GUIDM,  PRED 

SUBROUTINES  REQUIRED*  MATIN 

LOCAL  SYMBOLS  AJ  MEASUREMENT  RESIDUAL  COVARIANCE  MATRIX  AKO 

ITS  INVERSE 


ARM  INTERMEDIATE  ARRAY 

DUM  INTERMEDIATE  VECTOR 

PSAVE  INTERMEDIATE  ARRAY 

SUM  INTERMEDIATE  VARIABLE 


SW  INTERMEDIATE  ARRAY 


COMMON  COMPUTED/USED* 

AX 

CXSUP 

CXSU 

CXSVP  ° 

cxsv 

CXU  P 

CXU 

CXVP 

CXV 

CXXSP 

CXXS 

s 

pp 

PSP 

PS 

? 

COMMON  USED* 

AL 

AM 

G 

H 

NDIH1 

NDIM2 

NDIM3 

ONE 

PHI 

Q 

R 

ZERO 

TXU 

TXXS 

UO 

VO 

r 


HAVM  Analysis 


JUVM-i 


Th«  augmented  deviation  state  vector  is  defined  ea 

- [*,  ■*,•*»  *]T 

vhere 

T?  m position  end  velocity  s^ate  (dimension  6) 

\g  “ solve- for  parameter  state  (dimension  n^) 

if  ■ dynamic  consider  parameter  state  (dimension  n^) 

"v  * measurement  consider  parameter  state  (dimension  n^) 

The  linearised  equations  of  motion  have  form 

ir  » ? t + ? Tf  + F.Tt 

1 2 b 3 

if  - o 

a 

i?  - o 

■fr  - o 

end  solution 

*Ui  " ♦<k+1.k>*k  ♦ (k+i,kjxBk+  •101fr*n.k>t^ 

0 

X - X 

“k+l  ^ 


Vl 


k+1 


- X 


vhere  dynamic  noise  7^,  - has  been  added  to  the  solution  of  "x^^.  This 
solution  can  be  written  in  augmented  form 

Vl  " CW'1»k>  * A * \A 

vhere  the  au^fnented  state  transition  matrix  $A(V  '“l  ,k)  is  defined  as 
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I 


KAVH-2 


$A(k+l,k) 


$ 


9 8 0 

XX|  XU 


0 


V pi 


0 


0 


0 


S*  °2 


0 


0 


0 


0 


I 

q3x  n3 


s 

■* 


vsfc4 


' v- 


1 

t 

I 


Henceforth  st«te  transition  matrix  partitions  will  be  wrlttsn  without 
stating  t*"  associated  interval  of  time,  which  will  always  l>e  assumed  to 
be  [k,  k ' 

The  measurement  deviation  vector  y (dimension  m)  is  related  to  the 
augmented  deviation  otate  vector  through  the  equation 


where  the  augmented  observation  matrix  la  defined  as 


< 

-K 

\ 

s 

■v] 

and 

Tl  is  measurement  noise. 

The 

augmented  state 

covariance 

matrix 

A 

can 

be  written 

in  terms  of 

its 

partitions  as 

Pk  “ 

P 

k 

Cxx 

*k 

S 

X " 

T 

C~\ 

?m k 

C*‘Vk 

St 

cT 

X u 
• k 

U 

o 

C 

UVk 

C\ 

CT 

V V 

c* 

uv 

k 

V. 

• k 

O 

— • 

HAVM-3 


Prediction  and  filtering  equations  for  the  partitions  appearing  in  the 

previous  aquation  will  be  written  below.  Equations  need  not  be  written 

for  the  consider  parameter  covariances  U and  V since  these  do  not 

o o 

change  with  tine.  Also,  will  be  set  to  aero  because  of  the  assumption 

that  no  cross-correlation  exists  between  dynamic  and  measurement  consider 
parameters.  In  the  equations  below  Q and  R represent  the  covariances 
of  the  dynaa.c  and  measurement  noises,  respectively,  defined  previously. 

A minus  superscript  on  covariance  partitions  Indicates  the  covariance 
partition  lnnediately  prior  to  processing  a measurement;  a plus  super- 
script, immediately  after  processing  a measurement.  If  IC0DE  indicates 
that  a measurement  is  not  to  be  processed,  the  filtering  equations  are 
bypassed.  To  improve  nuaerlca^  accuracy  and  avoid  nou-positive  definite 

covariance  matrices,  ?“ , P , P , P+,  J,  and  J~*  ere  always  symmetrised 

s s 

after  their  eaaputatlon. 

Prediction  equations: 


- <$?+  + 0 c 

k xx. 


+*  + 0 ♦ 

xx  xu  xu, 

s V “k 


'XX.  “x*B  + Cxuk+1  ®xu  + Ok 


*k+l 


Vl 


- *Cxx^  + »XX8  \ + «xu  cxsu 

a,  s Tt  s k 


“k+l  *“k 


+ + 

$C  +0  C + 0 U 

— xx  x u xu  o 

8 8 k 


X u 

a 


m 


fcfl 


X U 

8 k 


Vi 


^ ^xv  + ®xx  St  V 
k 8 B t 


X V 

a 


- C 


k+1 


x v 
8 t 


. 
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Filtering  equations : 


■V.l  " \+l  \+l  * *k+l  \+l  + °k+l  °k+l 


* Sc+l  *k+i  * *vn 


vhare 


4 

'»  * 

* 

4 


£ 


*k+i 

\+i 

Dk+1 


\+i  Vi  + c 


-*+1 ^ " c;“k+l 


°k+l  * C"xv.  \+l 


k+1 


- p 


•k+1 

T 


*k+l  + ^ “k+l  + Cx  u ^+1  + Cx  v ^1 

• k+1 


- C 


XU 


*k+l  - 


k+1 


k+1 


*k+l 

8 k+1 

T -T 

T T 

“k+1  + Cxfiu 

>W  + “o  °V« 

6 k+1 

T -T 

™ xsvk+1 

+ T„ 

The  Hal man  gala  matrices  for  both  poBltlon/veloclty  state  and  solve- for 
parameters  are  given  by 

*k+l  " \+l  Jk+1 


k+1 


\+l  Jk+1 


The  covariance  partitions  lnwedlately  after  processing  a measurement  are 
given  by 


?k+l  " ?k+l  ' Sc+1  *k+l 

„+ 


- C 


k+1 


xx_  - *k+l  \+l 
k+1 


?Vl  “ ^+1  “ ^ ^ 


xu 


- C 


k+1 


xu 


k+1 


*k+l  °k+l 
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V 


k+1 


xv 


k+1 


V, 


k+1 


Cx  a “ ®k+l  °k+l 

■ k+1 

f - l ET 
xv  k+1  k+1 

k+1 

c;.v  - *k+i<+i 

* k+1 


**•  '•/ 

_ 1 


Lm  , Gentry;  Fa  lee , Ralph;  and  Hopper,  Fred:  Interplanetary 

Trajectory  Error  Analysts,  "oluae  I - Analytical  Manual. 
ICE-67-441,  Martin  Marietta  Corporation,  Denver,  Colorado, 
December  1967  (Completed  under  Contract  HASS-21120). 
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Compute  c ova r lane • matrix  partition* 
*t  tfc+1  using  prediction  equations: 


P C 

k+1  xx 


C C 

xu  xv 

k+1  k+1 


C C 

XU  XV 

8 k+1  8 k+1 


Symmetrize  P, 


k+1  ’ 


Update  covariance  matrix 
partition*  at  by 

equating  them  to  the  pre- 
viously computed  covar- 
iance matrix  partition. 


Compute  measurement  residual 
covariance  matrix  J and 
symmetrize. 

Compute  Kalman  gain  matrices 

Vi  Sk+r 


Update  covariance  matrix 
partitions  at  t£+1  using  fil- 
tering equations. 

Symmetrize  P+  , and  P* 

k+1  ^ 


RZTURH 
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HDTK-A 


SUBRuUTZMC  MOTH 

PURPOSE I TO  COHPUTE  THE  UNAUGMENTED  PORTION  OF  THE  STATE  TRANS- 
ITION MATRIX  USING  THE  NUMERICAL  DIFFERENCE  TECHNIQUE. 

CALLING  SEQUENCE I CALL  NOTH (RI«RF) 

ARGUMENT I RF  I POSITION  AND  VELOCITY  OF  THE  VEHICLE  AT  THE 

ENO  OF  THE  TIKE  INTERVAL 

RI  I POSITION  AND  VELOCITY  OF  THE  VEHICLE  AT  THE 

BEGINNING  OF  THE  TINE  INTERVAL 

SUBROUTINES  SUPPORTED*  PSIH 

NTH 

TEMPORARY  STORAGE  FOR  FACP 

TEMPORARY  STORAGE  FOR  FACV 

INTERMEDIATE  STORAGE  FOR  IPRINT 

POSITION  AND  VELOCITY  OF  VEHICLE  AT 
INITIAL  TIME 

TEMPORARY  STORAGE  FOR  ACC 

ALTEREO  POSITION  ANO  VELOCITY  OF  VEHICLE 
AT  INITIAL  TIME 

ALTEREO  POSITION  ANO  VELOCITY  OF  VEHICLE 
AT  FINAL  TIME 

ACC  FACP  FACV  IPRINT 

PHI 

ACCMD  CELTH  NO ACC  ONE  ZERO 


SUBROUTINES  REQUIRED I 
LOCAL  SYMBOLS  I FI 

F2 

IPR 

OP 


SAVE 

T 


COMMON  COHPUTEO/USEOI 
COMMON  COMPUTED I 
COMMON  USEOl 


V 


f 

V 

r 


\ 


7 
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BOTH  Analysis 


Tht  nonlinear  equations  of  motion  of  the  spacecraft  can  be  written  symbol* 
lically  as 


iT  ■ f ( "x , t ) 


where  ~x  is  the  spacecraft  position/velocity  state. 

Suppose  ve  wish  to  use  numerical  differencing  to  compute  the  state  tran- 
sition matrix  ^(t^  t^).  Let  ^(t^,  represent  the  j-th  column 

of  <^(t^,  assume  we  have  available  the  nominal  states  T*(t^ 

and  x *(t^).  To  obtain  <^(t^,  t^_^)  we  increment  the  j-th  element  of 
* <w  by  the  numerical  differencing  factor  ^xj  and  numerically  integrate 
equation  (1)  over  the  time  interval  ^ J to  obtain  the  new  space- 

craft state  x (t  ) . The  j-subscript  Indicates  ~x  (t  ) was  obtained  by 
^ x __  it  j h 

incrementing  the  j-th  element  of  x (t^  ^).  Then 


*,(V  \-v 


„ W V 


j - 1,2 6 
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Kimi  flew  Chart 


t 


t 

f 

£ 

f 

f. 

< 


KEWPGE-A 


SUBROUTINE  NEMPGE 

PURPOSE I PRINTS  APPROPRIATE  HEADING  AT  THE  TOP  OF  EACH  PAGE  MHEM 
PRINTOUT  OF  TRAJECTORY  INFORMATION  IS  OESXREO 

CALLING  SEQUENCE  CALL  NEWPGE 

SUBROUTINES  SUPPORTED  INPUTZ  PRINT  SPACE 

SUBROUTINES  REQUIRED!  NONE 

COMMON  CONPUTEO/USEDI  IPG 

COMMON  COMPUTED!  LINCT 

COMMON  USED!  KL 


NCKKAL-A 


1 


PROGRAM  NOMNAL 

PURPOSE*  TO  CONTROL  THE  ENTIRE  GENERATION  OF  A NOMINAL  TRAJECTORY 
PROM  INJECTION  TARGETING  THROUGH  MIDCOURSE  CORRECTIONS 
AND  ORBIT  INSERTION. 

CALLING  SEQUENCE!  NONE  (MAIN  PROGRAM) 

SUBROUTINES  SUPPORTED!  NONE  (MAIN  PROGRAM) • 

SUBROUTINES  REQUIRED!  GIOANS  PRELIM  TRJTRY 

COMMON  COMPUTEO!  IPRE 

COMMON  USED!  KNIT 


378 


HCKXAL-1 


NOKKAL  Analysis 


NCKNAL  is  the  executive  program  controlling  the  entire  generation  of  a 
nominal  trajectory  from  injection  targeting  through  midcourse  corrections 
and  orbit  insertion. 

NCHNAL  begins  by  calling  PRELIM  for  the  preliminary  work  including 
initialization  of  variables,  reading  of  the  input  data,  and  computation 
of  zero  iterate  values  of  initial  time,  position,  and  velocity  if  required. 

NCKKAL  then  calls  TRJTRY.  TRJTRY  first  determines  the  time  of  the  next 
guidance  event.  It  then  integrates  and  records  the  nominal  trajectory  to 
that  time.  TRJTRY  then  returns  control  to  NCMHAL. 

NCKNAL  next  calld  G1DANS.  GIDANS . processes  the  computation  and  execution 
of  the  current  guidance  event.  NCMNAL  then  reenters  its  basic  cycle  by 
calling  TRJTRY  to  propagate  the  corrected  trajectory  to  its  next  guidance 
event. 

Two  flags  are  used  by  NCHNA L.  The  flag  IPRE  is  initialized  at  zero  in 
NGKNAL.  During  the  processing  of  the  first  data  case  PRELIM  sets  it  to 
unity.  PRELIM  uses  IPRE  to  determine  whether  to  preset  constants  to 
•internally  stored  values  or  eave  them  at  their  previous  values  before 
reading  the  next  data  case. 

The  second  flag  KWIT  determines  whether  the  current  case  should  be  continued 
or  terminated  according  to  the  flag  value  zero  or  unity  respectively  Ter- 
mination is  indicated  when  a fatal  error  occurs  during  trajectory  propagation 
or  guidance  event  computation  or  when  the  desired  end  time  is  reached. 


NON INS -A 


SUBROUTINE  NONINS 
PURPOSE*  TO  DETERMINE  THE  TIME  ANO  CORRECTION  V_.  TOR  FOR  AN 


INSERTION 

FROM  AN  APPRO '.CH  HYPERBOLA  INTO  A SPECIFIED 

J 

PLANE  ANO 
ORBIT. 

AS 

NEAR  AS  POSSIBLE  TO  A PRESCRIBED  CLOSED 

i 

CALLING  SEQUENCE* 

CALL 

NONtNS(GM,Xf Z»DA,DE,OHTPfDI*DN,THEXf VEL» 
IEX) 

1 

1 

ARGUMENT*  GM 

I 

GRAVITATIONAL  CONSTANT 

1 

1 

I 

X (3) 

I 

POSITION  VECTOR  AT  DECISION 

Z(3) 

I 

VELOCITY  VECTOR  - ‘ DECISION 

1 4 

OA 

I 

OESIRED  SEMIKLJOR  AXIS 

t ' 

■ Jl 

OE 

I 

OESIRFD  ECCENTRICITY 

1 

OMTP 

I 

DESIRED  ARGUMENT  OF  PRRIAPSIS 

I , 

r ^ i 

i 1 

i 

ONTP 

I 

OESIREO  ARGUMENT  OF  PERIAPSIS 

0 i 

I 

OESIREO  INCLINATION 

I . 

ON 

I 

OESIREO  LONGITUDF  OF  ASCENDING  NODE 

* 

TNEX 

0 

fi WE  FROM  DECISION  TO  EXECUTION  (SECONDS) 

VELC3) 

0 

INSERTION  VELOCITY  VECTOR 

s 

IEX 

0 

EXECUTION  COOE 

•0  EXECUTABLE  SOLUTION  DETERMINED 
*1  NO  EXECUTABLE  SOLUTION  FOUND 

f 

i 

SUBROUTINES  SUPPORTED* 

INSERS 

SUBROUTINES  REQUIRED* 
LOCAL  SYMBOLS*  AH 

ANG 

ARC2 

ARC 

A 

CEI 

CEN 


CACLL  ELCAR 

HYPERBOLIC  SEMIMAJOR  AXIS 

TRUE  ANOMALY  OF  HYPERBOLIC  ASYH*»TOTE 

36  0. 

160. 

SEMIMAJOF:  AXIS  OF  MODIFIED  ELLIPSE 
COSINE  OF  DI 
COSINE  OF  ON 


38  i 


• * t 


I 


l 


r 
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CHI  COSINE  OP  HI 

CHN  COSINE  OP  HN 

CTAE  COSINE  OP  ETA 

CTASY  COSINE  OP  TASY 

CtfTXE  COSINE  OP  NTXE 

CMTXM  COSINE  OP  MTXN 

DELV  VELOCITY  CORRECTIONS  OF  CANDIDATE  SOLUTION 

ORA  DESIRED  APOAPSIS  RADIUS 

ORP  DESIRED  PERIAPSIS  RADIUS 

OTA  OUHHY  VARIABLE  FOR  OUTPUT 

OVH  MAGNITUDES  OF  CANDIDATE  CORRECTIONS 

DV  MAGNITUDES  OF  CANDIDATE  CORRECTIONS 

EH  HYPERBOLIC  ECCENTRICITY 

ERRMAX  SCALAR  ERROR  ASSIGNED  TO  IMPOSSIBLE 
SOLUTION 

ERR  ARRAY  OP  SCALAR  ERRORS  OF  SOLUTIONS 

ETAX  TRUE  ANOMALIES  AT  INTERSECTION  POINTS  ON 
ELLIPSE 

E ECCENTRICITY  OF  HOQIFIED  ELLIPSE 

HI  HYPERBOLIC  INCLINATION 

KM  HYPERBOLIC  LONGITUDE  OF  ASCENOING  NODE 

HRP  HYPERBOLIC  PERIAPSIS  RADIUS 

NT AX  TRUE  ANOMALIES  AT  INTERSECTION  POINTS  ON 

HYPERBOLA 

HTA  CANDIDATE  HYPERBOLIC  TRUE  ANOMALY  AT 

INTERSECTION 

MININ  INDEX  OP  OPTIMAL  INTERSECTION  POINT 
MIN  INDEX  OP  OPTIMAL  SOLUTION  (POINT  AND  HOD) 


•j f. 


4 


1 


r-N  r"“ 


NOKXKS-C 


NCPOS 

NSOLS 

NT1 

NT2 

PH 

PI 

PP 

GO 

RAO 

RA 

RHYP 

RHAG 

RH 

RP 

RX 

R1 

R 

SCI 

SEN 

SGNZ 

SHI 

SHN 

STA 

TAE 

TASt 

TAKE 


-fc 


FLAG  INDICATING  WHETHER  ANGLE  BETWEEN  NODE 
AND  INTERSECTION  IS  GREATER  OR  LESS  THAN 
180 

NUMBER  OF  SOLUTIONS 

INDEX  OF  FIRST  SOLUTION 

INDEX  OF  LAST  SOLUTION 

HYPERBOLIC  SEHILATUS  RECTUH 

THE  MATHEMATICAL  CONSTANT  PI 

UNIT  VECTOR  TOWARD  PERIAPSIS 

UNIT  VECTOR  IN  ORBITAL  PLANE  NORMAL  TO  PP 

OEGREE  TO  RAOIAN  FACTOR 

APOAPSIS  RADIUS 

HYPERBOLIC  CANDIDATE  RAOII  TO  INTERSECTION 
RAOIUS  TO  INTERSECTION  POINT 
RADIUS  AT  DECISION 
PERIAPSIS  RAOIUS 

RAOIUS  TO  INTERSECTION  POINT  ON  ELLIPSE 
RADIUS  VECTOR  TO  HYPERBOLA  AT  INTERSECTION 
RAOIUS  VECTOR  TO  ELLIPSE  AT  INTERSECTION 
SINE  OF  01 
SINE  OF  ON 

.SIGN  OF  DECLINATION  OF  INTERSECTION  POINT 
SINE  OF  HI 
SINE  OF  HN 

TRUE  ANOMALY  AT  DECISION 

ARRAY  OF  ELLIPTIC  TRUE  ANOMALIES 

TRUE  ANOMALY  OF  ASYHPTQTE 

TRUE  ANOMALY  AT  INTERSECTION  POINT  ON 
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I 

B081KS-D  : 


ELLIPSE 

TAXH  TRUE  ANOMALY  AT  INTERSECTION  POINT  ON  > 
HYPERBOLA 

TA  TRUE  ANOMALY 

TOEC  TIME  FROM  PERIAPSIS  AT  DECISION 

TEXC  TIME  FROM  PERIAPSIS  AT  EXECUTION  ON  HYPER- 
BOLA 

TEX  ARRAY  OF  CANDIDATE  TINES  FROM  DECISION  TO 
EXECUTION 

TTF  TIME  FROM  PERIAPSIS  AT  DEtlSIQN  ON  ELLIPSE 

VN  SPEEO  AT  DECISION 

VI  VELOCITY  VECTOR  ON  HYPERBOLA  AT  EXECUTION 

V VELOCITY  VECTOR  ON  ELLIPSE  AT  EXECUTION 

HE  ARGUMENT  OF  PERIAPSIS  ON  ELLIPSE 

KM  ARGUMENT  OF  PERIAPSIS  ON  HYPERBOLA 

HTXE  ANGLE  BETNEEN  ASCENDING  NODE  AM)  INTER- 
SECTION POINT  ON  ELLIPSE 

HTXH  ANGLE  BETWEEN  ASCENDING  NODE  AND  INTER- 
SECTION POINT  ON  HYPERBOLA 

NH  UNIT  NORMAL  TO  ORBITAL  PLANE 

U ARGUMENT  OF  PERIAPSIS 

XINT  X COMPONENT  OF  INTERSECTION  POINT 

TINT  Y COMPONENT  OF  INTERSECTION  POINT 

ZINT  Z COMPONENT  OF  INTERSECTION  POINT 


HOHUB-l 


ROMS  Analysis 

MGS INS  datermines  the  time  and  correction  vector  for  »n  Impulsive  Insertion 
from  an  approach  hyperbola  Into  a specified  plane  and  as  near  as  possible 
to  a prescribed  closed  orbit.  The  approach  hyperbola  is  specified  by 
giving  the  planetocentrlc  equatorial  state  r , "v  at  the  time  of  decision 

t . The  final  orbit  is  defined  by  giving  its  desired  orbital  elements 

d 

a^,  1^.  Wz,2e)  again  in  planetocentrlc  equatorial  coordinates. 

Subroutine  CAB XL  is  first  called  to  convert  the  hyperbolic  state  at  decision 
"r,  ‘C  into  Kcplerlan  conic  elements  (Sg,  Cg,  ig,  Wg,  12g,  tgg)  where  tgg 

is  the  time  from  periapsis  at  decision  (negative  on  the  approach  ray). 

The  points  of  intersection  of  the  approach  orbital  plane  and  the  desired 
orbital  plane  are  then  determined.  The  elements  defining  the  two  planes 
are  therefore  given  by  ig,  l^g  and  1^,3^  . Let  A denote  the  unit 

A 

vector  toward  the  ascending  node  of  an  orbit  and  B denote  the  in-plane 
normal  to  A in  the  direction  of  motion.  Then 

A ■ (cob  Q , ain  L , 0) 

B ■ (-a  in  12  cos  i,  cos Q cos  i,  sin  i) 

A AAA 

Hence  the  normal  to  the  orbital  plane  C is  given  by  C - A x B or 
A „ 

C ■ (sin  12  sin  1,  -cos Q aln  i,  cos  1)  (3) 

The  direction  of  the  line  of  Intersection  of  the  two  planes  is  therefore 
determined  by  f * * a °r 

• (cob  ig  sin  ig  cos  12  g - sin  Ig  cos  ig  coaL^, 

cos  ig  sin  1^  s in  12 g - sin  ig  cos  ig  sln!2g, 

sin  ig  sin  ig  (cos!2g  sinfig  - aln*2g  cosJg))  (4) 

Then  the  unit  vector  along  the  line  of  intersection  toward  the  northern 
hemisphere  la  given  by 

A _ f 

X - »gn  X3  ~ (5) 

Therefore  the  true  anomaly  £g^  along  the  hyperbola  at  the  northern  inter- 
section point  is  given  by 

cos  («H  + fgj)  » X»Ag  (6) 


(1) 

(2) 
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The  true  anomaly  on  the  hyperbola  at  the  southern  point  is  therefore 
f + 180°.  Note  that  there  exists  a region  of  true  anomalies  lying  be- 
fcSlen  the  incoming  and  outgoing  asymptotes  for  which  the  hyperbola  is  not 
defined.  Similar  equations  define  the  true  anomaly  on  the  ellipse  at  the 
two  points  of  intersection.  Note  that  this  implies  that  the  modified 
ellipse  will  have  the  same  cj  as  the  desired  ellipse. 


For  the  intersection  true  anomaly  the  radius  magnitude  on  the  hyper- 

bola may  be  determined 


‘H(I  - eH> 

1 + eH  cos  fg 


(7) 


To  permit  an  impulsive  insertion,  and  e^  must  be  modified  to  satisfy 


aE(1  - «g> 

1 + e cos  f 
E E 


(8) 


There  are  three  candidate  modifications  examined  to  determine  a "best" 
one:  (1)  Vary  r^  while  holding  r constant 

(2)  Vary  while  holding  r^  constant 

(3)  Vary  a while  holding  e constant 


’Best"  is  defined  below  in  terms  of  a weighted  scalar  function  of  the 


changes  in  r and  r 

* P 


Rewriting  (8)  in  terms  of  r and  r (using  a “ 

A T) 


r +r 
—5 £ 


the  useful  relation 


r -r 

— - — yields 
ra  Tp 


r (1  cos  f ) + r (1  - cos  f ) • 
a E P E 


2r  r 
§_2 


(9) 


Equation  (9)  may  be  solved  for  r as 

a 


V.(1  ~ c°*  v 


2 r 


r (1  + coa  f ) 


(10) 


This  yields  the  r which  defines  the  modified  orbit  holding  r at  its 

a p 

desired  value.  The  semi-major  axis  and  eccentricity  are  then  computed  from 


r - r 

e « - .a  P 
ra+Tp 


t 
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Similarly  (9)  may  be  solved  for  rp  as 


r_r  (1  + cos  f) 

a A 

p 2 r^  - r^Cl  - cos  f) 


(ID 


This  determines  the  modification  is  r required  to  achieve  an  inter- 

P 

•acting  ellipse  having  the  desired  . • 

finally  (8)  may  be  solved  trivially  for  the  a required  to  produ^ 

£ 

Intersection  for  the  desired  eccentricity. 


i 

-j'  ! 


r!<l  + eE  COS  fE> 


(12) 


a - 4) 


An  error  Is  assigned  to  each  of  the  candidate  solutions  as 


- V. 


Ar 


where 
of 


fir  , &r  are  the  errors  between  the  desired  and  modified  values 

* P 

r and  r . The  weighting  factor  V.  is  assigned  rather  arbitrarily, 
a p 1 


Currently  the  weighting  factor  is  W “ 


Wli  W21 


where 


11 


21 


1 If  the  true  anomaly  is  on  the  Incoming  ray 

2 If  the  true  anomaly  is  on  the  outgoing  ray 

1 If  option  1 

2 if  option  2 

3 if  option  3 


Thus  a solution  on  the  incoming  asymptote  is  preferred  over  one  on  the 
outgoing  asymptote  and  one  subsequent  trim  is  preferred  over  two  subsequent 
trims. 


Having  determined  the  elements  of  an  intersecting  orbit  the  Insertion  para- 
meters are  easily  computed.  The  velocity  on  the  hyperbola  at  the  intersection 


point  may  be  computed  from  E1CAR  es 


The  velocity  on  the  ellipse  following 


the  insertion  is  computed  by  calling  ELCA&  with  the  modified  elliptical  ele- 
ment to  get  V . The  impulsive  2Tv  is  then  given  by 
K 

^ - v“E 

The  time  Interval  from  th  eclslon  to  the  execution  is  given  by  the  hyper- 
bolic time  from  the  ini tla i point  to  the  relevant  intersection  point. 
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SUBROUTINE  NONLIN 

PURPOSE!  TO  CONTROL  EXECUTION  OF  NON-LINEAR  6UI0ANCE  EVENTS* 

CALLING  SEQUENCE!  CALL  NONLIN 

SUBROUTINES  SUPPORTEO!  GUISIH  GUIOH 

SUBROUTINES  REQUIRED!  CAREL  ELCAR  GIOANS 

LOCAL  SYHBOLSI  AA  ARGUMENT  FOR  SUBROUTINE  CAREL 

01  JULIAN  DATE  OF  EVENT 

EE  ARGUMENT  FOR  SUBROUTINE  CAREL 

ISNPR  SAVE  INPR  VALUE 

ISPRNT  SAVE  IPRINT  VALUE 

KEY  INTERMEDIATE  VARIABLE  IN  SETTING  UP  TARGET 
ARRAY 

KICL2  SAVE  ICL2  VALUE 

KICL  SAVE  ICL  VALUE 

KISPH  SAVE  ISPH  VALUE 

» KISP2  SAVE  ISP2  VALUE  „ 

ODELT  SAVE  ORIGINAL  OELTP  VALUE 

OSPH  SAVE  ORIGINAL  SPHERE  OF  INFLUENCE  OF  > 
TARGET  PLANET 

PP  ARGUMENT  RETURNED  FROM  CAREL 

QQ  ARGUMENT  RETURNED  FROM  CAREL 

RMAG  ARGUMEMT  FOR  SUBROUTINE  ELCAR 

TAA  TRUE  ANOMALY 

TFFP  TIME  OF  FLIGHT  FROM  PERIAPSIS 

TFP  TIME  FROM  PERIAPSIS 

\ 

TRTINE  TRAJECTORY  TIME  OF  THE  GUIDANCE  EVENT 

I 

> . VMAG  ARGUMENT  FOR  SUBROUTINE  ELCAR 

MM  ARGUMENT  FOR  SUBROUTINE  CAREL 


*.  390 


1 


1 


»' 


, V 


HOHUB-B 


t 


XXI  ARGUMENT  FOR  SUBROUTINE  CAREL 

XXN  ARGUMENT  FOR  SUBROUTINE  CAREL 

XYZTAA  ZERO  TRUE  ANOMALY  ARGUMENT  FOR  SUBROUTINE 
EL  CAR 


COMMON 

COMPUTED/ USED* 

0ELTP 

OEL  V 

OSI 

OT 

IBAOS 

I CL  2 

I CL 

INPR 

IPRINT 

ISPH 

ISP2 

XLP 

XMX1J 

XT  AR 

KTIH 

XTP 

XWIT 

MAT 

MAXB 

MOL 

NOIT 

NTP 

RSI 

SPHERE 

TAR 

TGT3 

TIN 

THU 

TOL 

VSI 

XOC 

XOELV 

XRC 

ZO  AT 

COMMOM 

COHPUTEOI 

ACKT 

AC 

BOR 

8DT 

DC 

OG 

DVMAX 

Di 

ISTART 

IZERO 

XT  YP 

KUR 

LVLS 

NLP 

NQGYO 

NPAR 

PERV 

RC 

RIN 

SPHFAC 

TIMG 

TRTM 

co  hi:  on 

USED! 

ACX 

ALNGTH 

DATEJ 

DELTAV 

* IX 

JX 

L KL  P 

LKTAR 

LXTP 

LLVLS 

LNPAR 

PMASS  k 

TM 

T3 

XAC 

XBOR 

XBOT 

XDSI 

XOVMAX 

XFAC 

XIN 

XPERV 

XRSI 

XT  AR 

XT  OL 

XV  SI 

ZERO 

N0HLI8-1 


N0NLIN  Analysis 


N0NLIN  Is  the  interface  subroutine  between  the  non-linear  guidance  sub- 
routines of  N0KNAL  and  subroutine  GUIEK  of  ERRAN  and  subroutine  GUIS2M 
of  SIMUL.  N0NLIN  selects  the  necessary  data  fro®  the  ERRAH  and  SIMUL 
common  blocks  and  stores  into  the  common  blocks  of  N0KNAL  the  information 
needed  to  compute  and/or  execute  the  required  in  order  to  meet 

specified  target  conditions. 

The  most  important  task  performed  by  N0NLIN  is  the  selection  of  the  desired 
guidance  scheme.  The  variable  IX  is  tested  and  control  is  transformed 
according  to  the  following: 

IX  “ 1 , retargeting  to  specified  target  parameters 

■ 2,  ]bit  insertion  to  specified  orbit 

■ 3,  &V  execution  by  a series  of  specified  pulses 

For  each  type  of  event,  N0NLIN  then  sets  up  valueB  controlling  the  type  of 
guidance  event  (KTYP)  , implementation  code  (KMXQ) , and  execution  model 
code  (MDL) . For  retargeting  only,  N0SLIH  stores  the  remaining  values 
needed  for  /fv  calculation  and  prints  the  zero  iterate  conditions. 

N04NAL  calls  GIDANS  to  perform  the  guidance  event  and  restores  parameters 
necessary  for  the  basic  cycles  of  ERRAN  and  SIMUL.  For  retargeting  only, 
N0MNAL  then  stores  the  conditions  at  sphere  of  influence  and  closest 
approach  of  the  target  planet  which  were  calculated  by  subroutine  TARGET. 


i 


« 
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M0KL2M  Flow  Chart 


ENTER 


Save  the  basic  cycle 
parameters  and  act  up 
the  general  guidance 
parameters . 


KMXQ  (1)*»4 
KTYP(1)-1 
MDL(1)-1 


KTYP  (1)«3 
KXXQ(l)-4 
MDL(1)-1 


Set  up  remaining 
target  parameters 
and  print  zero 
iterate  conditions. 


' — 1 ~ - 

N 

t 

1 

| 

KTYP ( 1 ) • 1 
KMXQ ( 1 ) ■ 2 
MDL(l)-2 

! 

| 

CALL 

GIDANS 


Restore  basic  cycle 
trajectory  parameters. 


Store  8.0. X. 
conditions . 


<a 


Was  target  time  a 
losest  approach? 


± 


> 


YES 


Store  C.A. 
con<ii.>.ions . 

K 


NO 


Calculate  C.A, 
conditions . 


RETURN  ^ 
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SUBROUTINE  NTH 

PURPOSE*  CONTROL  COMPUTATION  OF  NOMINAL  TRAJECTORY  IN  THE  ERROR 
ANALYSIS  PROGI'  M 


CALLING  SEQUENCE* 
ARGUMENT*  XCOOE 

NTHC 


RF 


RX 


CALL  NTM(RI,RF,NTKC,ICOOE> 

I INTERNAL  CODE  THAT  DETERMINES  WHICH 
TRAJECTORY  IS  BEING  RUN  ANO  WHAT 
INFORMATION  IS  DESIRED 

I NOMINAL  TRAJECTORY  MODULE  COOE  THAT 

DETERMINES  WHICH  TYPE  OF  TRAJECTORY  PROGRAM 
IS  TO  BE  USED  (NOTE  ONLY  THE  VIRTUAL  MASS 
TECHNIQUE  IS  SUPPLIED  WITH  THIS  PROGRAM. 
HOWEVER*  WITH  LITTLE  EFFORT  ANY  TRAJECTORY 
PROGRAM  MAY  BE  ADDEO  AS  AN  EXTRA  OPTION.) 

0 POSITION  AND  VELOCITY  IF  THE  VEHICLE  AT  THE 
END  OF  THE  TIME  INTERVAL 

1 POSITION  AND  VELOCITY  OF  THE  VEHICLE  AT  THE 
BEGINNING  OF  THE  TIME  INTERVAL 


SUBROUTINES  SUPPORTED*  ERR  ANN 

SETEVN 


SUBROUTINES  REQUIREO* 
LOCAL  SYMBOLS*  01 

RHP 


MU  NO 
GUID 


NDTM 

VARADA 


PLND 

PRED 


PSIM 


VHP 


JULIAN  DATE*  EPOCH  JAN.O*  1900*  OF  INITIAL 
TRAJECTORY  TIME 

DISTANCE  OF  VEHICLE  FROM  TARGET  PLANET  AT 
SPHERE  OF  INFLUENCE  QR  CLOSEST  APPROACH 


VMM 


MAGNITUDE  OF  THE  VELOCITY  VECTOR 


COMMON  COMPUTED/ USED* 

80RSI1 

BDRSI2 

BDRSI3 

BDTSI1 

8DTSI2 

B0TSI3 

BSll 

BSX2 

BSI3 

ICA1 

ICA2 

ICA3 

ICL 

ISOI1 

IS0I2 

IS0I3 

ISPH 

RCA1 

RCA2 

RCA3 

RSOI1 

RSOI2 

RS0I3 

TCA1 

TCA2 

TCA3 

VS0I2 

TSOI1 

VSOI3 

TSOI2 

TS0I3 

VSOI1 

COMMON  USED* 

ACC 

BDR 

BOT 

B 

DATEJ 

DC 

OELTM 

OSX 

IPROB 

ISP2 

ITR 

NQE 

RC 

RSI 

TRTM1 
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KM  Analysis 


Subroutine  8TK  is  used  to  generate  the  (most  recent)  targeted  nominal 
trajectory  in  the  error  analysis  mode.  Subroutine  rat  is  equivalent  to 
a subroutine  ratS  from  which  all  loops  associated  with  I CODE  - -3,  -2,  2,  3 
have  been  removed.  7 or  this  reason  no  further  analysis  and  no  flow  chart 
will  be  presented  for  subroutine  HTM.  Refer  tr  subroutine  HTKS. 


O 
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» 
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SUBROUTINE  NTHS 

PURPOSE!  CONTROL  COMPUTATION  OF  TARGETED  NOMINAL,  HOST  RECENT 
NOMINAL,  ANO  ACTUAL  TRAJECTORIES  IN  THE  SIMULATION 
PROGRAM 


CALLING  SEQUENCE!  CALL  NTHS(RI,RF,NTHC,ICOOE> 


ARGUMENT!  I CODE  I INTERNAL  CODE  THAT  DETERMINES  WHICH 

TRAJECTORY  IS  BEING  RUN  ANO  WHAT 
INFORMATION  IS  DESIRED 


NTKC  I NOMINAL  TRAJECTORY  MODULE  CODE  THAT 

DETERMINES  WHICH  TYPE  OF  TRAJECTORY  PROGRAM 
IS  TO  BE  USEO  (NOTE  ONLY  THE  VIRTUAL  HASS 
TECHNIQUE  IS  SUPPLIED  WITH  THIS  PROGRAM. 
HOWEVER,  WITH  LITTLE  EFFORT  ANY  TRAJECTORY 
PROGRAM  MAY  BE  ADDED  AS  AN  EXTRA  OPTION.) 

RF  0 POSITION  AND  VELOCITY  OF  THE  VEHICLE  AT  THE 

ENO  OF  THE  TIME  INTERVAL 


RI  I POSITION  AND  VELOCITY  OF  THE  VEHICLE  AT  THE 

BEGINNING  OF  THE  TIHE  INTERVAL 


SUBROUTINES  SUPPORTED!  SIHULL  HUND  NOTH  PLND  PSIH 

SETEVS  GUISS  VARSIN  PRESIH 


SUBROUTINES  REQUIRED! 
LOCAL  SYMBOLS  I ACCS 

01 

XI 

X2 

K3 

Kb 

K5 

Kb 

NBODS 

MBS 

RMP 


VHP 

INTERMEDIATE  STORAGE  FOR  ACCURACY 

JULIAN  DATE,  EPOCH  JAN., 1900,  OF  INITIAL 
TRAJECTORY  TITE 

INOEX  FOR  SEMIMAJOR  AXIS  ELEMENT 
INDEX  FOR  ECCENTRICITY  ELEMENT 
INDEX  FOR  INCLINATION  ELEMENT 
INOEX  FOR  ASCENDING  NODE  ELEMENT 
INOEX  FOR  PERaAPSIS  ELEMENT 

INOEX  FOR  MEAN  ANOMALY  ELEMENT 
INTERMEDIATE  STORAGE  FOR  N80D 
INTERMEDIATE  STORAGE  FOR  NB  ARRAY 
DISTANCE  OF  VEHICLE  FROM  TARGET  PLANET 


SAVE  10  INTERMEDIATE  STORAGE 
SAVE1  INTERMEDIATE  STORAGE 
SAVES  INTERMEDIATE  STORAGE 
SAVES  INTERMEDIATE  STORAGE 
SAVE*  INTERMEDIATE  STORAGE 
SAVES  INTERMEDIATE  STORAGE 
SAVE*  INTERMEDIATE  STORAGE 
SAVES  INTERMEDIATE  STORAGE 
SAVES  INTERMEDIATE  STORAGE 


VMM  MAGNITUDE  OF  THE  VELOCITY  VECTOR 


COMMON  COMPUTE D/USE 01  ACC 

DOTS 12 

CN 

ICL 

M80D 

RCA  3 

ST 

TSOI2 

COMMON  US  EDI  ACCl 

DAB 

OIB 

OSI 

NBOD1 

RC 


BORSIl 

BORSI2 

BDRSI3 

BBTSI1 

BOTSI3 

BSI1 

8SI2 

BSI3 

EMN 

ICA1 

ICA2 

I CAS 

ISOI1 

ISOI2 

ISOI3 

ISP* 

NB 

PHASS 

RCA1 

RCA2 

RSOI1 

RS0I2 

RSOI3 

SMJR 

TCA1 

Tcir 

TCA3 

TSOI1 

TSOI3 

VS0I1 

VS0I2 

VSCI3 

ALNGTH 

BOR 

BDT 

8 

OATEJ 

DC 

DEB 

DELTH 

DMAB 

DHUPB 

DM  USB 

DNOB 

0MB 

IPROB 

ISP2 

ITR 

NB1 

NGE 

NQE 

NTP 

RSI 

TM 

TRTN1 

Yil 

t 


I 
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I9S  Analysis 


Subroutine  VOSS  la  used  to  ganerst*  any  of  tha  three  trajectories  required 
in  tha  simulation  nod*  — the  (most  recent)  targeted  nominal  trajectory, 
the  moat  rec ' - t nominal  trajectory,  and  the  actual  trajectory. 

The  input  variable  ICODE  la  uaed  to  distinguish  between  theae  trajectories. 

It  la  unimportant  to  the  virtual  mass  technique  which  trajectory  ia  being 
computed.  However,  it  la  Important  to  keep  them  separated  so  that  the 
proper  codes  are  act  that  check  for  approaching  the  sphere  of  Influence  of 
the  target  planet  and  reaching  closest  approach.  It  is  also  important  to 
keep  separate  the  conditions  at  which  these  occur  for  each  trajectory.  The 
following  list  describes  I CODE  completely. 

ICODE  " 3,  HTMS  will  check  to  see  if  the  sphere  of  influence  and/or 
closest  approach  has  been  reached  on  the  actual  trajectory. 

If  not,  VHP  will  check  for  these  conditions  and  on  encountering 
either,  NTXS  places  the  conditions  in  special  storage  locations 
ao  they  will  be  saved  for  future  reference. 

XCODE  “ 2,  KTHS  performs  the  same  operations  as  described  above  for  the 
moat  recent  nominal  trajectory. 

ICODE  - 1,  KTHS  again  checks  for  sphere  of  influence  and  closest  approach 
as  above  for  the  targeted  nominal  trajectory. 

ICODE  " 0,  the  only  important  information  in  this  situation  is  the  state 
vector  at  the  end  of  the  time  interval.  Therefore,  NTMS  does 
not  check  to  see  if  closest  approach  or  sphere  of  Influence  is 
encountered.  This  might  occur  in  numerical  differencing,  for 
example. 

I CODE  - -1,  It  is  important  to  knew  if  sphere  of  influence  or  closest 

approach  is  reached  on  the  targeted  nominal  trajectory.  However, 
it  is  not  desired  that  the  information  he  stored  for  future  use. 
This  situation  occurs  in  the  guidance  event. 

I COME  " -2,  the  same  c cements  may  be  made  as  if  ICODE  ~ -1,  except  this 
is  on  the  most  recent  nominal  trajectory. 

ICODE  “ -3,  again,  this  value  of  ICODE  is  treated  the  same  as  is  ICODE  - 
-1,  for  the  actual  trajectory. 

Physical  constants,  planetary  ephemerldes,  and  other  information  relating 
to  the  dynamic  mode  1 are  the  same  for  the  targeted  and  most  recent  nominal 
trajectories.  This  is  not  true  for  the  actual  trajectory.  There  may  be 
biases  in  the  target  planet  ephemerldes  and  the  gravitational  constants  of 
the  Son  and  target  planet.  The  numerical  accuracy  and  the  number  of  celes- 
tial bodies  employed  in  the  generation  of  the  actual  trajectory  may  also 
differ* 


1 


RMfi-  2 


Zphenerls  biases  tr«  specified  at  blasts  in  orbital  elements  a,  «,  1,  0, 

CU,  and  X ..  However,  within  the  program  arc  stored  the  epfeesneria  constants 
of  a,  a,  1.  0,  uS,  and  M for  the  planets  and  a,  e,  1,  Q,  Co,  and  L for 
the  noon,  where 

CO  m U)  + Q 


and 


L • M ♦ go  + Q . 

Incrementation  of  to  and  L requires  addition  of  biases  in  Q , co,  and 
II  as  indicated  bp  the  above  equations. 
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STMS- 5 


Did  targeted  nominal  pierce 
sphere  of  Influence? 


Did  most  recent  nominal 
pierce  Bphere  of  Influence? 


Vas  sphere  of  Influence  \ 
previously  pierced?  / 


Vas  sphere  of  Influence 
previously  pierced? 


Jt  i 

4 


8tore  sphere  of  Influence 
conditions  for  the  targeted 
nominal  trajectory.  Write 
out  sphere  of  Influence 
conditions 


IS0X2 


Store  spnere  of  Influence 
conditions  for  the  most  recent 
nominal  trajectory.  Write 
out  sphere  of  Influence 
conditions . 


Was  closest  approach 
previously  encountered? 


Was  closest  approach 
previously  encountered? 


Store  closest  approach  con- 
ditions for  the  targeted 
nominal  trajectory 


Store  closest  approach  con- 
ditions for  the  most  recent 
nominal  trajectory. 


Did  targeted  nominal  en-  \ 
counter  closest  approach?  / 


<Dld  targeted  nominal  en- 
counter closest  approach? 


Write  out  closest  approach 
conditions . 


Write  out  closest  approach 
conditions . • 


Is  most  recent  nominal 
identical  to  target  nominal? 


m 


ORB- A 


SUBROUTINE  ORB 

RUW»OSE«  TO  COMPUTE  THE  0R8ITAL  ELEMENTS  — INCLINATION, 

LONGITUOE  OF  ASCENOINS  NODE,  LONGITUDE  OF  PERIHELION, 
ECCENTRICITY,  ANO  LENGTH  OF  SEMIMAJOR  AXIS  — FOR  A 
SPECIFIED  PLANET  AT  A GIVEN  TIME. 


calling  sequence* 

CALL 

. ORB (IP, D) 

ARGUMENT*  0 

I 

JULIAN  DATE,  EPOCH 

1900,  OF  THE  TIME  AT 

WHICH  THE  ELEMENTS 

ARE  TO  BE  CALCULATED 

IP 

I 

CODE 

: NUMBER  OF  PLANET 

= i 

SUN 

= 2 

MERCURY 

= 3 

VENUS 

*4 

EARTH 

w 

= 5 

MARS 

= 6 

JUPITER 

= 7 

SATURN 

= 8 

URANUS 

= 10 

PLUTO 

*11 

MOON 

SUBROUTINES 

SUPPORTED* 

DATA 

PSIM 

GUIDM 

HELIO 

PRNTS4 

DATAS 

TRAKM 

GUID 

LAUNCH 

TRAPAR 

PCTM 

TRAKS 

GUISIM 

LUNTAR 

PRINT3 

TRAPAR 

GUISS 

MULCON 

PRINT4 

VHP 

PRNTS3 

MULTAR 

SUBROUTINES 

REQUIRED* 

NONE 

LOCAL  SYMBOLS*  FN1  STATEMENT  FUNCTION  DEFINING  A THIRD  ORDER 

POLYNOMIAL 


FN2  STATEMENT  FUNCTION  DEFINING  A FIRST  ORDER 
POLYNOMIAL 


ITEMP 

INTERMEDIATE 

VARIABLE 

PI2 

TWICE 

THE  MATHEMATICAL 

CONSTANT 

PI 

COMMON 

COHPUTED/USEO* 

ELMNT 

T 

COMMON 

USED* 

CN 

EMN 

SMJR 

ST 

TMOPI 

ORB  Analysis 


ORB  determines  the  mean  orbital  elements  for  any  gravitational  body  at 
a specified  time. 

The  elements  used  are  semi-major  axis  a , eccentricity  e , inclination  i 
longitude  of  the  ascending  node  0 , and  longitude  of  periapsis  £#.  Theee 
elements  are  referenced  to  heliocentric  ecliptic  for  the  planets  or  geo- 
centric ecliptic  for  the  moon. 

The  mean  elements  are  computed  from  time  expansions  as  follows.  Let  * be 
any  of  the  elements.  Then  the  value  of  a at  any  time  t is  given  by 

2 3 

«(t)  ■ a + a.t  + a t + • t 

o I 2 3 

* there  the  constants  a are  stored  bv  B1KDAT.  These  constan‘8  are  stored 

k 

into  the  arrays  CN,  ST,  and  EMN  for  inner  planets,  outer  planets,  and 
the  moon  respectively.  The  def'nitions  of  these  arrays  and  the  values 
stored  are  provided  in  the  analysis  of  the  previous  subroutine  1ULRAT.,  The 
element  value  as  computed  from  the  above  equation  is  then  returned  in  the 
' EUQTT  array  according  to  the  gravitational  body  code  k as 


EIMNT(8k-15) 

- i 

k - 1 

Sun 

- 1 

Saturn 

ELKNT(8k- 14) 

- 0 

2 

Mercury 

8 

Uranus 

EI>OT(8k-13) 

— 
■ CO 

3 

Venus 

9 

Neptune 

EI*HT(8k-12) 

■ e 

u, 

Earth 

10 

Pluto 

EIXHT(8k-  10) 

* a 

5 

Mars 

11 

Moon 

EUOT(8k-9) 

“ U> 

6 

Jupiter 

PARTL-A 


SUBROUTINE  PARTL 

PURPOSE  CONPUTE  PARTI ALS  OF  B DOT  T AND  8 OOT  R KITH  RESPECT  TO 
SPACEORAPT  POSITION  AND  VELOCITY 

CALLING  SEQUENCE*  CALL  PARTL (R»V  »B*BDT»B0R»P8T »PBR> 

ARGUMENT!  B 0 IMPACT  PLANE  PARAMETER 

BOR  0 B OOT  R 

BDT  0 B DOT  T 

PBR  0 PARTI Ai  OF  B OOT  R WITH  RESPECT  TO  R AND  V 

PBT  0 PARTIAL  OF  B DOT  T NITH  RESPECT  TO  R AND  V 

R I POSITION  OF  VEHICLE  RELATIVE  TO  PLANET 

V I VELOCITY  OF  VEHICLE  RELATIVE  TO  PLANET 

SUBROUTINES  SUPPORTED ! GUISS  5 LI  ID 


LOCAL  SYMBOLS! 

H3 

INTERMEDIATE 

VARIABLE 

RU 

INTERMEDIATE 

VARIABLE 

S 

MAGNITUDE  OF 

VELOCITY 

u 

INTERMEDIATE 

VARIABLE 

02 

SQUARE  OF  U 

U2PV2 

INTERMEDIATE 

VARIABLE 

UV 

INTERMEDIATE 

VARIABLE 

UV3 

CUBE  OF  UV 

V2 

SQUARE  OF  MAGNITUDE  OF  VELOCITY 

COMMON  USED! 

ZERO 
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PAiTL-1 


PA1TL  Analysis 


PARTI  la  responsible  for  the  computation  of  the  partial*  of  B-T  and 
S‘l  with  respect  to  the  eartealan  components  of  position  and  velocity. 


Let  the  state  of  the  spacecraft  with  respect  to  the  target  body  at  inter* 
section  with  its  sphere  of  Influence  be  dem  ted 


"r  - x,  y,  t ] T 

* - [**  y.  *]T 


r ■ 


V 7TT7 


^ + £2 


(1) 

(2) 


Introduce  the  approach  asymptote  S and  approximate  it  by  the  direction 
of  V 


^ 1 
v 


(3) 


The  B-plane  Is  the  plane  normal  to  X containing  the  center  of  the  target 
body.  Any  vector  within  the  B-plane  must  satisfy  therefore 


's  ‘ (f 


(A) 


The  impact  parameter  vector  f is  determined  by  the  intersection  of  the 
B-plane  and  the  incoming  asymptote.  The  incoming  asymptote  is  given  par- 
itrlcally  by 


" r*  + “v 


(5) 


The  time  at  which  the  asymptote  intersects  the  B-plane  ma”  be  '.ttermined 
by  applying  the  B-plane  condition  (4) 

/>  _ » A 

S«r  + S.Tt-0 


LiZ 

v2 


(6) 


Therefore  the  B-vector  is  given  by 


r - ias  * 
2 
v 


x - ax,  y - ay,  I 


•■r 


C 7 > 


where  a • £*J£  « BL — ZJLZ JUL 
2 .2.2.2 
v x + y + z 
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PARTL-2 


Now  assuming  that  the  T axle  is  to  lie  in  the  x-y  reference  plane  and 
the  &-plane,  it  ia  defined  as 


A A 

T - . .§■  JL-ft. 

* /A  A 

S x K 


A 

T - 


*.-2i0 


(8) 


where  - x^  + y^  . The  R axis  is  defined  by 


S'  s\  *** 

R - S x T 


o i r. . - . 2 1 T 

R ” -=-  xz , yz , -u 

uw  L 


(9) 


Now  combining  (7),  (8),  (9)  B*T  and  B*R  may  be  computed  in  terms  of 
the  atate  components 


B*T  “ - (xy  - xy) 


B*R  - i-  f (xx  + yy) 
uv  L 


(10) 


z - u z 


where  + y^  , + z^ . 

The  partiala  may  now  be  computed  from  differentiation  of  the  above  equations. 


dB»T 

d* 

6b»t 

av 

aB-T 

dt 


- 1 

U 

- - k 

u 

- 0 


\ (xx  + yy) 


ax 

di-T 

dJ 

aB>T 

a* 


- 0 


aB>R 

ax 

dB-R 

ay 

aB-R 

dz 

aB»R 

ai 


- 4 «c  + yy)  44* 


UV 

ii 

uv 

u 

V 


* 3 3 

U V 


2 2 . * • ^ 0 # 

U (v  X - XZz)-X(Ui’  + V ) (xx  f-  yy) 


ay  * 3 3 l 

f I V * 


z ! "'  / 2 ......  2 2v  , • . 

u (v  y - yzz)-y (u  + v ) (xx  + w)| 


U V 


-§7*  * ± (a  + yy  - «i> 


¥ 
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SUBROUTINE  PCTH 

PURPOSE!  CONTROL  COMPUTATION  OF  STATE  TRANSITION  MATRIX  USING  MK 
ANALTTZOAL  NATCH 10  CONIC  TECHNIQUE 


CALLING  SEQUENCE!  CALL  PCTH(RI) 


ARGUMENT!  RI 


I POSITION  ANO  VELOCITY  OF  THE  VEHICLE  AT  UK 
BEGINNING  OF  THE  TIKE  INTERVAL 


SUBROUTINES  SUPPORTED!  PS IN 


SUBROUTINES  REQUIRED!  C0NC2  EPHEH  ORB 


LOCAL  SYMBOLS!  D 


JULIAN  DATE,  EPOCH  JAN.O,  1900,  OP  INITIAL 
TIHE 


OELT  LENGTH  OF  TINE  INCREMENT  IN  PROPER  UNITS 

DUN  TEMPORARY  STORAGE  FOR  STATE  TRANSITION 

MATRIX 

GMS  GRAVITATIONAL  CONSTANT  OF  GOVERNING  SORT 

IP  CODE  OF  PLANET 

RH  DISTANCE  FROM  SPECIFIED  PLANET 

RS  POSITION  OF  VEHICLE  RELATIVE  TO  SPECIFIED 

PLANET 


COMMON  COMPUTED! 
COMMON  USEOI 


VELOCITY  OF  VEHICLE  RELATIVE  TO  SPECIFIED 
PLANET 


COMMON  COMPUTED/ US ED * XP 


ALNGTH  OATEJ  DELTM  F IBARY 

NBOD  NB  PHASS  SPHERE  TN 

TRTM1 


PCTH-1 


KTOi  Analysis 


Subroutine  PCXM  docs  not  sctuslly  con puts  the  state  transition  matrix 
Vi>  itself;  this  is  accomplished  by  eslllt^  C0KC2  from  within 

PCTK . The  primary  function  of  PCTM  is  to  determine  the  dominant  body  at 
time  t^  ^ to  be  used  in  the  computation  of  $(t^,  t^_^)  by  «****•  of  the 

analytical  patched  conic  technique. 

On  interplanetary  trajectories  we  compute  the  distance  separating  the 
spacecraft  from  each  of  the  celestial  bodies  Included  in  the  analysis. 

If  the  distance  between  the  spacecraft  and  the  i“ th  body  is  less  than  or 
equal  to  1.1  times  the  sphere  of  influence  of  the  i-th  body,  the  i-th 
body  is  selected  as  the  dominant  oody.  Otherwise,  the  Sun  is  selected  as 
the  dominant  body. 

On  luna  trajectories  we  compute  the  distance  separating  the  spacecraft 
from  the  Moon.  If  this  distance  Is  less  than  or  equal  to  1.1  times  the 
sphere  of  influence  of  the  Moon,  the  moon  is  selected  as  the  dominant  body. 
If  not,  the  Earth  is  selected  as  the  dominant  body. 


PCTH-2 


m* 


3 

k 


& 
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PCOt-3 


c 


v * ~ 


SUBROUTINE  PECEQ 

PURPOSE  I TO  COMPUTE  THE  MATRIX  DEFINING  THE  TRANSFORM  AT  I**,  **m 
PLANET  CENTERED  ECLIPTIC  COORDINATES  TO  PLANET  CENTERED 

equatorial  coordinates  as  a function  of  the  particular 
planet  and  time. 

CALLING  SEQUENCE*  CALL  PECEQ(NP,b,ECEQ> 

ARGUMENT  NP  I CODE  OF  PLftKFT 

0 I JULIAN  OATE*  EPOCH  1D88»  OF  REFERENCE  TINE 

ECEQ(3»3)  0 TRANSFORMATION  MATRIX  FROM  ECLIPTIC  TO 
EQUATORIAL  COORDINATES 

SUBROUTINES  SUPPORTED*  TARGET  HELIO  LAUNCH  LUNTAR  NULTAR 

INSERS  TRAPAR  VHP  OATAS  GUISIN 

DATA  GUION  EXCUTE 

EULHX 

JULIAN  TIME  (EPOCH  1B80)  DIVIOED  BT  IAMB* 

CONVERSION  FACTOR  FROM  DEGREES  TB  RADIANS 

TRANSFORMATION  MATRIX  FRON  ECLIPTIC  TO 
ORBITAL  PLANE 

TRANSFORMATION  MATRIX  FROM  ORBITAL  TO 
EQUATORIAL  PLANE 

YEARS  OF  JULIAN  TIME  (EPOCH  1988) 

THE  INCLINATION  OF  THE  ORBITAL  PLANE  TO 
ECLIPTIC  PLANE 

INCLINATION  OF  PLANET  EQUATOR  TO  ORBITAL 
PLANE 

THE  LONGITUDE  OF  THE  ASCENOING  NODE  OF  THE 
‘ ORBITAL  PLANE  TO  THE  ECLIPTIC  PLANE 

THE  LONGITUDE  OF  THE  ASCENDING  NODE  OF  THE 
PLANET  EQUATOR  TO  THE  ORBITAL  PLANE 

EHN  EH2  ENA  EH9  ENG 

ENT  EH8  ZERO 


SUBROUTINES  REQUIRED* 
LOCAL  SYMBOLS*  00 

OGTR 

ECOP 

OPEQ 

T 

XI 

XIQ 

XL 

XLQ 

COMMON  USED* 
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PECK}  Analysis 


pgCSQ  Is  responsible  for  the  computation  of  the  transformation  matrix 
from  ecliptic  to  planet  equatorial  coordinates  for  any  planet  (or  moon) 
at  any  time. 


I 


Figure  1.  Geometry  of  Ecliptic,  Orbital,  and  Equatorial  Plane6 


Figure  1 illustrates  the  geometry  of  the  problem.  In  that  figure  the 
following  definitions  hold 

The  ecliptic  coordinate  axes 
The  orbital  plane  coordinate  axes 

The  planet  equatorial  coordinate  axes 

Inclination  of  orbital  plane  to  ecliptic  plane 
Right  ascension  of  orbital  plane  to  ecliptic  plane 
Inclination  of  planet  equator  to  orbital  plane 
Right  ascension  of  planet  equatorial  to  orbital  plane 

Time  expansions  for  the  mean  values  of  the  angles  are  evaluated  at  the 
specific  time.  Then  the  construction  of  the  transformation  matrix  proceeds 
in  two  steps: 


XYZ 

X Y Z 
o o o 

Yqz« 

1 

Q 

6 

9 


In  the  first  step  the  transformation  from  the  ecliptic  to  orbital  plane 
coordinates  la  made.  Thla  la  done  by  rotating  about  the  z-axla  through 
an  angle  Q and  then  about  the  rerultlng  x-axis  through  an  angle  1 : 

TgCOP  ~ < Q about  3,  1 about  1) 

The  transformation  from  the  orbital  plane  to  the  equatorial  coordinates 
la  accompli abed  in  a similar  fashion: 

- (8  about  -3,  6 about  -1)* 

The  rotation  matrix  (or  Euler  matrix)  for  each  of  these  transformations  la 
computed  by  subroutine  XU1KX.  The  trana formation  from  ecliptic  to  equatorial 
la  now  given  as  the  product  of  these  aatrlcea 

T - T T 

ECEQ  OPEQ  ECOP 


<►15 


PERHfcL-A 


SUBROUTINE  PERM EL 

PURPOSE!  TO  PROPAGATE  A HELIOCENTRIC  TRAJECTORY  CONSIDERING  THE 
PERTUBATIONS  PRODUCED  BY  BOTH  THE  LAUNCH  AND  TARGET 
BODIES. 

CALLING  SEQUENCE!  CALL  PERHEL <GM,HS I,HLTI ,HL TF ,0ELT ,HSF ) 

ARGUMENT!  GM(3>  I GRAVITATIONAL  CONSTANTS  OF  SUN, LAUNCH  ANO 

TARGET  PLANETS 

HSI  (6)  I HELIOCENTRIC  ECLIPTIC  SPACECRAFT  STATE 
(INITIAL) 

HLTI (2,3)  I INITIAL  HELIOCENTRIC  STATES  OF  LAUNCH  AND 
TARGET  BODIES 

HLTF(2,3>  I FINAL  HELIOCENTRIC  STATES  OF  LAUNCH  AND 
TARGET  BODIES 

OELT  I TIKE  INTERVAL  OF  PROPAGATION 

MSF (6)  0 HELIOCENTRIC  ECLIPTIC  SPACECRAFT  STATE 

(FINAL) 


SUBROUTINES  SUPPORTED! 
SUBROUTINES  REQUIRED! 
LOCAL  SYMBOLS  I CON 

DELR 

PER 

PSF 

PSI 

RAV 

RA 

i 

RF 

RM 

RI 


PULCOV  PULSEX 
BATCON 

INTERMEDIATE  VARIABLE 
RF-RI 


PERTURBATION  IN  FINAL  STATE 

SPACECRAFT 

(FINAL) 

POSITION 

RELATIVE 

TO 

PLANET 

SPACECRAFT 

(INITIAL) 

POSITION 

RELATIVE 

TO 

PLANET 

AVERAGE  OF  RI  ANO  RF 
INTERMEDIATE  VARIABLE 
MAGNITUDE  OF  PSF 
INTERMEDIATE  VARIABLE 
MAGNITUDE  OF  PSX  , 


nr^ 


P*RKEI/-1 


PC KEEL  Analysis 


PIXXXL  la  responsible  for  propagating  a haliocantrlc  trajactory  considering 
tha  parturbatlons  produced  by  both  the  launch  and  target  bodies.  The  equa- 
tions of  motion  of  a body  moving  under  the  influence  of  the  sun  while  per- 
turbed by  a smaller  mass  are 

Zi.  ft  Jr  ft(  T - Tm  ) fl'r 

r • - ° - m _ S • \ 

3 , — — . , 3 r 3 

r r - r 

m 


where  r la  the  vector  radius  from  the  sun  to  the  spacecraft 

~r  Is  the  vector  radiuB  from  the  sun  to  the  perturbative  mass 

a 

fl0,  it  are  the  gravitational  constants  of  the  sun  and  mass  respectively. 

Assuming  that  the  indirect  term  is  small,  attention  may  be  directed  to  the 
first  two  terms  only.  Suppose  that  ("r^(t),  (t))  satisfy 

r - v 
o o 


* - CiL° 


Then  (rQ(t),  vQ(t))  are  given  by  the  faallar  equations  of  conic  motion. 

A flrat  order  corrected  solution  necessary  to  account  for  the  direct  term 
force  must  then  satisfy 

r ■ "?  + Jr  ■ 


"v  - "v  + Tv  • - 


( ?o  ~ 

? -•?  3 
O m 


Applying  the  conditions  (2)  leads  to  the  equations  defining  the  corrections 
■ Tv 

ft  - - ft  J*  (4) 


whara  C - rQ(t)  - *m(t)  is  the  position  vector  of  tha  spacecraft  with  respect 
to  the  perturbing  mass. 

One  further  assumption  enables  one  to  so_lve  in  closed  form  the  perturbations 
produced  by  the  third  mass.  Generally  IT  (t)  and  & (t)  are  nearly  linear 
functions  of  time.  Therefore  aupjjose^that  the  initial  and  final  values  of 
these  variables  are  known  to  be  R^,  R^,  R^,  R^  over  the  Interval  At. 
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* 


Introduce  the  definitions 

AR  - Rj  - T l 

AR  - R2  - Rx  (not  | AR  | ) 
<R>  - * (Rx  + R2) 


- PERH&L-2 


<5> 


Then  the  equation  defining  the  velocity  perturbation  would  be 


<5v 


- V 


a + b t 
(c  + d t)3 


- H. 


d - 4* 

At 


> 


(6) 


It  Is  more  convenient  however  to  transform  from  time  t to  position 
magnitude  p as  the  independent  variable.  This  may  be  done  since  the 
position  magnitude  is  assumed  to  be  linear  in  time  with  p » AR  . 

_ At 

According  to  the  assumptions,  the  position  vector  R is  a linear  function 
of  p also 

r’  - A + B p ' (7) 

Since  R ( P^)  » R^  and  R ( p^)  ■ R^,  the  constants  are 


B 


A5 

AR 


R1  R2 

AR 


A 

Ar 


(8) 


In  terma  of  p the  equations  defining  the  perturbations  may  be  written 
(with  primes  indicating  differentiation  with  respect  to  p ) 


dr*  - A-£  jv 

AR 

- _ /*At  A 4 tp 

AR  p3 


(9) 


These  equations  are  easily  integrated  to  determine  the  perturbations  caused 
ae  the  spececreft  moves  from  R^  to  "X  relative  to  the  perturbative  body: 


i 


A i B 
«3 


PERiCSL-3 


£4  A /-L  - -i-'j  + t /-L 

AI  2 \p2  ,2y 


-J-w.-  <r>  Ar  - A> 

a.i.Ai 


P - R 


4 r - 


£Ad  /*  2 X /-l . 

ar2  J L2  'p2 


- JL&L. 

Ar 


1 ar  + A*  (u(h\  . Ar 

2 *i  Ar2  ' \Ri/  Ri 


PXRHRL  calls  BATCON  for  the  generation  of  the  uncorrected  heliocentric 
conic,  computes  the  initial  and  final  positions  of  the  spacecraft  relative 
to  each  of  the  launch  and  target  planets,  and  computes  the  perturbations 
based  on  equations  (10)  and  (11)  above. 


mm  now 


}*m 


i 


t 


? 
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PERHZ3>4 


rt 


Add  perturbations  of  launch  and 
target  bodies  to  conic  final  state 


I 

■/* N 


RETURN 


PLND-A 


SUBROUTINE  PL  MO 

PURPOSE!  TO  COMPUTE  COLUMNS  OF  THE  STATE  TRANSITION  MATRIX 

PARTITIONS  TXXS  AND  TXU  ASSOCIATED  WITH  TARGET  PLANET 
EPHEHERIS  BIASES  INCLUDED  IN  HE  AUGMENTED  STATE  VECTOR 
BY  A NUMERICAL  DIFFERENCING  TECHNIQUE. 

CALLING  SEQUENCE!  CALL  PLNO(RI,RF) 

ARGUMENT!  RF  I POSITION  AND  VELOCITY  OF  THE  VEHICLE  AT  THE 

END  OF  THE  TIME  INTERVAL 

RI  I PGSITION  AND  VELOCITY  OF  THE  VEHICLE  AT  THE 

BEGINNING  OF  THE  TIME  INTERVAL 

SUBROUTINES  SUPPORTED*  PSIM 


SUBROUTINES  REQUIRED!  NTH 

LOCAL  SYMBOLS!  OEL  TEMPORARY  STORAGE  FOR  TARGET  PLANET  SEMI- 
MAJOR AXIS  FACTOR  USED  IN  NUMERICAL 
OIFFERENC ING 


IC  COUNTER  FOR  VARIABLES  AUGMENTED  TO  STATE 

VECTOR 


IEMN  VECTOR  OF  INOICES  FOR  ORBITAL  ELEMENTS  OF 
THE  MOON 


IENO  FLAG  FOR  VARIABLES  AUGMENTED  TO  STATE 
VECTOR 


IPR  TEMPORARY  STORAGE  FOR  IPRINT 

NEW  VECTOR  OF  INOICES  FOR  QREITAL  ELEMENTS  OF 

INNER  AND  OUTER  PLANETS 

RPER  ALTERED  FINAL  POSITION  AND  VELOCITY  OF 
VEHICLE 

SAVE1  TEMPORARY  STORAGE  FOR  CONSTANTS  OF 

AUGUKENTED  ELEMENTS  OF  TARGET  PLANET 

SAVE2  SA^E  COMMENTS  AS  SAVE1 


COMMON 

COHPUTEO/USEO! 

CN 

EMN 

IPRINT 

SMJR 

ST 

COMMON 

COMPUTED! 

TXU 

TXXS 

COMMON 

USED! 

ALNGTH 
I AUG 

DELAXS 

NTNC 

OELX 

NTP 

XAUGOC 

ZAUGIN 

PLKD-l 


PLND  Analysis 


Ths  nonlinear  equations  of  notion  of  the  spacecraft  can  be  written 
symbolically  as 


"x  . ?(*,*( t),  t) 


(1) 


where  ~x  is  the  spacecraft  position/velocity  state  and  "e(t)  is  a 
vector  composed  of  the  6 orbital  elements  a,  e,  i,  Q,  CJ,  and  M of  the 
target  planet.  The  motion  of  the  spacecraft  is,  of  course,  dependent 
on  the  positions  of  other  celestial  bodies,  but  this  dependency  ne*d  not 
be  explicitly  stated  for  the  purposes  of  this  analyst*. 


Suppose  we  wish  to  use  numerical  differencing  to  compute  those  columns 


of  8 


XX. 


and  8^  associated  with  target  planet  ephemeris  biases  included 


in  the  augmented  state  vector  over  the  time  interval 


1 


fck- 1 > *kj  " 


Let 


8j(t^,  t^_^)  represent  th*  column  associated  vitn  the  j-tn  ephemeris  bias, 

We  assume  we  have  available  the  nominal  states  ~y*(t  ) and  * ( t ), 

k- 1 k 

which,  of  course,  were  obtained  by  numerically  solving  equation  (1)  using 
nominal  "e(t).  To  obtain  ^(t^,  .j._  we  increment  the  th  orbital 

element  by  the  pertinent  numerica.  ’ . oncing  factor  ^e4  and  numerically 


[Vi-  *k] 


to  obtain  the  new 


integrate  equation  (1)  over  the  interval 
spacecraft  state  wh-re  the  J-subscript  on  the;  spacecraft  state 

indicates  that  it  was  obtained  by  incrementing  the  j-th  orbital  element. 
Then 


VV  W - 


x^t^  - x (tk) 


(2) 


Ephemeris  biases  are  defined  as  biases  of  the  basic  set  of  orbital  elements 
a,  e,  i , Q,  CJ,  and  M . ^However,  within  the  program  are  stored  the  ephemeris 
constants  of  a,  e,  i,  Q,  CJ,  and  K for  the  planets  and  a,  e,  i,  Q,  CJ,  and 
L for  the  moon.  Thus,  in  order  to  increment  certain  of  the  basic  elements 
we  must  increment  certain •combinations  of  the  stored  ephemeris  constants. 

The  elements  CJ  and  M Lre  related  to  the  longitude  of  perihelion  CJ 
and  tha  mean  longitude  L as  follows: 

cj  * 2 - Q 

M - L - W 

Thus,  to  increment  Q by  A Q without  changing  the  other  5 basic  elements 
requires  that  we  also  increment  0 by  A Q for  the  case  of  a planet,  and 
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"P  Tv 


PLMH2 


both  £J  «nd  L by  Aj}  for  the  case  of  the  moon.  To  increment  u>  by  Aw 
ve  simply  increment  CJ  by  ACJ  for  a planet,  while  for  the  moon  we  must 
increment  both  (J  and  L by  Au<  To  increment  H by  AM  for  the  moon 
va  simply  increment  L by  AM. 


In  the  PLOT  flow  chart  we  employ  the  following  definition: 


Wi*  j 


y-J  -s 


PLHD-3 


PLUS  Plow  Chart 


J - J + 1 


O 


Is  the  target 
planet  the  Moon? 


Is  the  target  N 
planet  beyond  Mars?. 


Increment  the  appropriate  ele- 
ment of  the  CH  array  after 
saving  Its  original  value. 


Increment  the  appropriate  ele- 
ment of  the  ST  array  after 
saving  its  original  value. 


Call  HTH  to  compute  the  state 
at  t^  resulting  from  the  incre- 
mentation of  the  J-th  orbital 
element  at  t 


Call  NTM  to  compute  the  state 
at  t resulting  from  the  incre- 
mentation of  the  _j-th  orbital 
element  at  t 

k-1 


Reset  the  appropriate  element 
of  the  CH  array  to  its  original 
value. 


Reset  the  appropriate  element  | 
of  the  ST  array  to  its  original  j 
value.  I 


PUD-4 


I*  ip,  in  x or 
v j • 


ti  . * 


POICCK-A 


SUBROUTINE  POICQN 

PURPOSE  CONPUTE  PROBABILITY  OF  IMPACT 
CALLING  SEQUENCES  CALL  PGICOMCXXXX ,0ET» 

ARGUMENTS  XXXX  I AIMPOINT  IN  THE  IMPACT  PLANE  VECTOR 

OET  I DETERMINANT  OF  LAMBDA  MATRIX 

SUBROUTINES  SUPPORTED S BIAIM 
SUBROUTINES  REQUIREOS  MATIN 

P*  HQH  TRANSPOSE 
INTERMEDIATE  VARIABLE 
INTERNE  ATE  VARIA8LE 
ADA*  PM  » ADA  TRANSPOSE 


LOCAL  SYMBOLS  S PMQH 

SAVE 

SUM 

N 


t- 

t 

5, 

r 

s 


com  on 

COMPUT EO/USED  t 

IEND 

POI 

PSTAR 

XLAH 

COMMON 

USEDS 

ADA 

A 

CR 

EXEC 

ONE 

PI 

PP 

TMO 

II6P 

XLAMI 


ZERO 
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poict  *-i 


POICOK  Analysis 


Subroutine  POIOOK  computes  the  target  condition  covariance  V after  a gt ldance 
correction,  the  projection  of  Into  the  impact  plane,  and  the  probabi  ity  of 
impact  of  th«  spacecraft  with  the  target  planet. 

The  target  condition  covariance  matrix  wj  la  defined  as 

“1  - ”,  <pk,  ♦ >VT>  ”• 


'■m 


where  *7  is  the  variation  matrix  for  the  appropriate  guidance  policy,  P 
J k . 

*>+  J 

is  the  knowledge  covariance  prior  to  the  guidance  correction,  la  the 
execution  error  covariance,  and  M is  defined  as  the  following  6x3  matrix: 


M - L°  : '] 1 


before  the  probability+of  impact  can  be  computed,  it  Is  necessary  to  compute 
the  projection^  of  W into  the  Impact  plane.  The  cover  ianceA,  Is  computed 

as  follows  for  each  of  the  three  available  midcourse  guidance  policies. 

a.  Fixed-tlme-of -arrival : 

Aj  - A at 

where  transformation  A is  defined  in  the  subroutine  BIAIM  analysis. 

b.  Two-variable  B-plane: 


A - V+ 

J J 

Three-variable  B-plane: 


o o"! 


Aj  - w o 

j 0 1 0 J 


if  - ■' 


POICCW-2 


Asttnd.Bg  the  probability  density  function  associated  with  Is  Gaussian 

and  nearly  constant  over  the  target  planet  capture  area  permits  us  to 
compute  the  probability  of  impact  using  the  equation 

POI  -*TR2  p 
c 


where  R is  the  target  planet  capture  radius  and  p is  the  Gaussian  probability 
d*naityC function  evaluated  at  the  target  planet  center  and  given  by 


P 


where  fi  is  the  aimpoint  in  the  impact  plane. 


POICCK-3 


POICOK  Plow  Qvart 


RETURN 


PR Lu-A 


PROGRAM  PREO 

PURPOSE  CONTROL  EXECUTION  OF  A PREDICTION  EVENT  IN  THE  ERROR 
ANALYSIS  PROGRAM 

SUBROUTINES  SUPPORTED  I ERR ANN 


SUBROUTINES  REQUIRED  I 

LOCAL  SYMBOLS  CXSU1 

CXSV1 

CXU1 

CXV1 

| 

i CXXS1 

DUH2 

''  * 

' DUM3 

oum 

EGVCT 
EGVL 
ICODE 
I PR 
OUT 

PEIG 

PS1 

f 

PI 

RF 

TPT 

VEIG 

i 

i 

* ! COMMON  COMPUTED/ USED  I 


CORREL  DYNO  HYELS  JACOBI  NAVM 
NTH  PSIM  STMPR 

STORAGE  FOR  CXSU  COVARIANCE  ARRAY 

STORAGE  FOR  CXSV  COVARIANCE  ARRAY 

STORAGE  FOR  CXU  covariance  array 

STORAGE  FOR  CXV  COVARIANCE  ARRAY 

STORAGE  FOR  CXXS  COVARIANCE  ARRAY 

ARRAY  OF  EIGENVECTORS 

ARRAY  OF  EIGENVALUES 

B DOT  T AND  B DOT  R COVARIANCE  MATRIX 

ARRAY  OF  EIGENVECTORS 

ARRAY  OF  EIGENVALUES 

INTERNAL  CONTROL  FLAG 

STORAGE  FOR  IPRINT 

ARRAY  OF  STANDARD  DEVIATIONS  AND 
CORRELATION  COEFFICIENTS 

MATRIX  WHOSE  HY«»ERELL IPSOID  IS  TO  BE 
COMPUTED 

STORAGE  FOR  PS  COVARIANCE  ARRAY 
STORAGE  FOR  P COVARIANCE  ARRAY 
NOMINAL  SPACECRAFT  STATE  AT  TIME  TPT 
TIME  TO  WHICH  PREDICTION  IS  TO  BE  HADE 
INTERMEDIATE  VECTOR 

CXSU  CXSV  CXU  CXV  CXXS 

IPRINT  NPE  PS  P 


PIED-B 


COW ON  COMPUTED* 

OELTH 

TRTHi 

XI 

COMMON  USED* 

EM 

ISTMC 

NTMC 

UO 

FOP 

N0ZH1 

ONE 

VO 

FOV 

N0IM2 

Q 

XF 

IEXC 
N0IM3 
1 PT2 

XMYPi 

NOE 

TSOIl 

J ' 


*** 
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PSED-l 


PUS  Analysis 


Subroutine  PUD  executes  a prediction  event  in  the  error  analysis  mode. 
Subroutine  PUS  differs  from  subroutine  7USZM  In  two  respects.  First, 
the  propagated  knowledge  covariance  partitions  are  based  on  the  (most 
recent)  targeted  nominal,  rather  than  on  the  most  recent  nominal  as  in 
FKKS1M.  And  second,  estimated  position/velocity  deviations  are  not 
propagated  In  FUS  since  estimates  are  processed  only  in  the  simulation 
node,  and  not  in  the  error  analysis  mode.  See  subroutine  PILES IM  for 
further  analytical  details.  A flw  chart  for  FEED  is  not  presented  here 
since  It  la  but  a subset  of  the  PILES  IK  flow  chart. 


P&EL2M-A 


SUBROUTINE  PRELIM 

PURPOSE  TO  PERFORM  THE  PRELIMINARY  MORK  ASSOCIATED  NITH  THE 

NOMNAL  PROGRAM  INCLUDING  THE  READING  OF  THE  INPUT  DATA* 
INITIALIZATION  OF  CONSTANTS,  ANO  THE  COMPUTATION  OF  A 
ZERO  ITERATE  IF  REQUIRED 


CALLING  SEQUENCE!  CALL  PRELIM 
SUBROUTINES  SUPPORTED*  NOMNAL 


SUBROUTINES  REQUIRED* 

CPMMS 

TIME 

ZERIT 

LOCAL  SYMBOLS*  OF 

JULIAN 

DATE 

CORRESPONDING 

TO 

KALF 

ARRAY 

D I 

JULIAN 

DATE 

CORRESPONDING 

TO 

KALI 

ARRAY 

GS  ARRAY  OF  VALUES  OF  SECONDS  CORRESPONDING 

TO  KALG  ARRAY 


I INDEX 

J INOEX 

KALF  CALENDAR  DATE  OF  FINAL  TRAJECTORY  TIME 

KALG  ARRAY  OF  CALENDAR  DATES  OF  GUIDANCE  EVENTS 

KALI  CALENDAR  DATE  OF  INITIAL  TRAJECTORY  TIME 

KALT  ARRAY  OF  CALENDAR  DATES  OF  TARGET  TIMES 

KEY  LOCAL  VARIABLE  USED  TO  COMPLETE 
INFORMATION  IN  THE  ARRAY 

SF  SECONDS  OF  FINAL  TRAJECTORY  TINE 

SI  SECONDS  OF  INITIAL  TRAJECTORY  TIME 

TS  SECONOS  OF  TARGET  TIMES  CORRESPONDING  TO 

•KALT  ARRAY 


COMMON  COMPUTED /US ED* 

AC 

ALNGTH 

DG 

Dl 

FI 

IBAOS 

IBARY 

I COORD 

IFINT 

IPRE 

ISTART 

IZERO 

KGYD 

KMXQ 

KOAST 

KTIM 

KTYP 

LTARG 

LVLS 

MAT 

MAX8 

MOL 

NBOD 

NB 

NCPR 

NOGYD 

NOIT 

NPAR 

ONE 

PERV 

PHILS 

PSI1 

PSI2 

RIN  e 

RPRAT 

RP 

SIGNAL 

SPHFAC 

sss  . 

TAR 

THEOOT 

THELS 

TIMG 

TIM1 

TIM2 

TIN 

THPR 

TM 

ZOAT 
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PRELIK-B 


COWON 

COMPUTED  1 

OINTG 

I6PHEM 

NINETY 

TRTM 

EIGHT 

IPRINT 

RAO 

TMO 

FIVE 

KSICA 

TEN 

ZERO 

FOUR 

KUR 

THREE 

half 

NBOQYI 

TMU 

COMMON 

USEOt 

ACKT 

KTAR 

NTP 

OEL  V 

LEVELS 

PHI 

OT 

HAX6A0 
P MASS 

DVMAX 

NITS 

TIMS 

IBAST 

NLP 

TOL 
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PRELIM- 1 


P®ELIK  Analysis 


PRELIM  is  responsible  for  the  preliminary  work  required  b/  NCKNAL  including 
the  initialization  of  variables,  the  reading  of  input,  and  the  computation 
of  zero  iterate  values  for  initial  time,  position,  and  velocity  if  necessary. 

On  the  first  call  to  PRELIM,  PRELIM  presets  constants  to  be  used  on  the 
entire  series  of  runs.  These  constants  Include  the  double  precision  numbers 
and  the  launch  profile  parameters.  On  subsequent  calls  these  variables 
are  not  reset. 

PRELIM  then  presets  constants  for  individual  runs.  These  constants  presently 
include  most  of  the  guidance  event  parameters.  The  user  may  easily  change 
the  two  sets  of  constants  for  his  particular  needs. 

PRELIM  then  accepts  the  input  data.  It  reads  data  in  the  NAMELIST  format. 

Target  times  must  be  read  in  as  calendar  dates.  PRELIM  next  converts  these 
to  Julian  date  referenced  1900  and  stores  the  converted  values  in  the  TAR 
array. 

If  the  flag  ZZERO  is  nonzero,  ZERIT  is  called  for  the  computation  of  the 
zero  iterate  values  of  initial  time,  position,  and  velocity.  ZERIT  in  turn 
calls  HELIO  for  interplanetary  trajectories  and  LUNA  for  lunar  trajectories. 

PRELIM  then  converts  guidance  event  times  referenced  to  initial  time  to 
calendar  data  and  converts  times  read  in  as  calendar  dates  to  times  ref- 
erenced to  the  initial  time.  When  the  latter  is  done,  it  sets  KTIM  to 
‘‘acknowledge  that  conversion.  ; 


Finally  PRELIM  records  all  pertinent  data. 


. y - 


>5> 


mm- 2 


PRELIM  Flow  Chart 
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SUBROUTINE  PREPUL 


PURPOSE!  TO  PERFORM  THE  PRELIMINARY  COMPUTATIONS  REQUIRED  FOR  THE 
PULSING  ARC  MODEL. 

CALLING  SEQUENCE!  CALL  PREPUL (RIN, DEL TAV  » 01) 


ARGUMENTS!  RINC6) 


I INERTIAL  STATE  OF  SPACECRAFT  AT  NOMINAL 
TIME  OF  CORRECTION 


OELTAV ( 3 ) I TOTAL  VELOCITY  INCREMENT  TO  BE  ADOEO 

01  I JULIAN  DATE  OF  NOMINAL  TIME  OF  CORRECTION 

SUBROUTINES  SUPPORTED!  EXCUTE  EXCUTS 

SUBROUTINES  REQUIRED!  TIME 

SEMIMAJOR  AXIS 

INTERMEDIATE  VARIABLE  IN  F ANO  G SERIES 
JULIAN  DATE  AT  BEGINNING  OF  PULSING  ARC 
MAGNITUDE  OF  TOTAL  IMPULSIVE  CORRECTION 
JULIAN  DATE  AT  ENO  OF  PULSING  ARC 
MAGNITUDE  OF  FINAL  PULSE  OF  SEQUENCE 
MAGNITUDE  OF  TYPICAL  PULSE  OF  SEQUENCE 
INTERMEDIATE  VARIABLE  IN  F ANO  G SERIES 


LOCAL  SYMBOLS!  A 

C 

OB 

DEL  VM 
OE 

DVFM 

OVIM 

0 

G 


10 

MAXP 

NDX 

NX 

RD 

RR 

SO 


gravitational  constant  of  BODY  under 

CONSIDERATION 

CALENDAR  DATE  Ot  CRITICAL  TIMES  FOR  OUTPUT 

MAXIMUM  NUMBER  OF  PULSES  ALL  OMED 

ARRAY  OF  COOES  OF  LAUNCH  AND  TARGET  BODIES 

INDEX  OF  GIVEN  PLANET  COORDINATES  IN 
F-ARRAY 

TIME  DERIVATIVE  OF  RADIUS  MAGNITUDE  OF 
PLANET 

MAGNITUDE  OF  RAOIUS 

SECONDS  OF  CRITICAL  TIMES  FOR  OUTPUT 
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I 


1 


prefcl-b 


VV  SPEED  Of  PL  AMT 


COMMON 

COMPUTED/  USED  1 

B 

OVF 

DVX 

FS 

GG 

6S 

NPUL 

PULT 

RK 

VK 

COMMON 

USED! 

ALNGTH 

OTI 

OUR 

FIVE 

FOUR 

F 

MBOD 

MB 

NINETY 

NLP 

NTP 

PM  ASS 

PULHAG 

PULMAS 

THREE 

TH 

TMO 

V 

dt 


3 


i 

i 


t- 


> 


i 

i 
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PUfUL  Analysis 


PXEPUL  la  reeponsible  for  performing  the  preliminary  computation*  required 
for  tbs  pulsing  arc  modal. 

PKEPUL  first  datarmlnaa  the  nominal  pulsing  arc.  Let  the  follwlng  defin- 
itions be  made: 

T magnitude  of  pulsing  engine  thrust 

m nominal  mass  of  spacecraft 

At  duration  of  single  pulse 

At^  time  Interval  between  pulses 

Av  total  velocity  increment  to  be  added 


The  velocity  increment  imparted  by  a single  pulse  is 


'4 


— v. 


Av 


- l.A, t 

a 


(i> 


The  number  of  pulses  required  is  then 


Al 

Av, 


(2) 


where  £•]  denotes  the  greatest  Integer  function.  The  magnitude  of  the 
final  pulse  must  be  set  to 


Av{  - Av  - (Np  - 1)  Avi 

The  vector  nominal  pulse  and  final  pulse  arc  therefore  given  by 

A~v 
1 Av 

J£ 

f Av 


(3) 


r 

Avt  - 

Av 

Av 

s 

VM 

> 

< 

The  duration 

of  tb 

t' 

r: 

AT  - 

(8 

> 

P 

(4) 


(5) 


later  computations  require  time  histories  of  the  position  vectors  of  the 
launch  and  target  bodies.  An  efficient  means  of  obtaining  this  involves 
the  f and  g series.  Given  the  state  "ro , "v  of  body  moving  in  a conic 

section  about  s central  bod;'  of  gravitational  constant  m , the  position 
vector  as  a function  of  t measured  from  the  initial  time  is  given  by 


r(t)  - f(t)  r + g(t)  v* 
o o 


(6) 
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Lf  ij  ^i 


I 


1 


PWSPUL-2 


fi  fr 


I 

r 


K 


vhtre 


“ k A k 

f(t)  " E 'v 1 *<0  " 2-  ** * 

k-0  k-1 

The  constant*  f^,  «r«  computed  In  FHKPUL  as 


(7) 


f • 


1 

0 


f_  - 


f - 


2r  ' 
o 


f - 


24r 


2 • 

- H T_ 


8r 


(4  - 15 


(4  - 


7r  r 
o o 


r r * 
o o 

* 

2 


3 ^ ) 

s 


f - 


720  r 


r r0r  2 r £r  2 / r r 2\2  r 

- <70  + 114  — + 840  -S~-  - 630  -S-2-  - 450  (-~- ) - 45  — : 
* #*  M*  V M / a' 


2 

L. 

2 


- 1 


8, 


- 0 


K 


1 f 

2 3 


„ 3 


^ f - -L  f 

5^  4 15  2 

If  -Iff 

3 5 6 2 3 


ka£e rsncs:  Baker,  &.  M.  L.  and  Kakemaon,  M.  V.,  An  Introduction  to 

Aatrodynanica . Academic  Press,  Hew  York,  1967. 
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nOVL  flow  Chart 
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PRES  IK- A 
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PROGRAM  P RESIN 

PURPOSE  CONTROL  EXECUTION  OF  A PREDICTION  EVENT  IN  THE 
SIMULATION  PROGRAM 


SUBROUTINES  SUPPORTED*  SIHULL 


SUBROUTINES  REQUIREOt 

LOCAL  SYMBOLS  CXSU1 

CXSV1 

CXU1 

CXV1 

cxxsi 

0N2 

0N3 

ON 

EGVCT 
EGVL 
I PR 
OUT 

PEIG 

PS1 

Pi 

RFi 

TPT 

VEIG 

COMMON  COMPUTED /USED l 
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CORREL  OYNOS 
NTNS  PSIM 


HYELS 

STMPR 


JACOBI  NAVN 


STORAGE  FOR  CXSU  COVARIANCE  AWAY 
STORAGE  FOR  CXSV  COVARIANCE  ARRAY 
STORAGE  FOR  CXU  COVARIANCE  ARRAY 
STORAGE  FOR  CXV  COVARIANCE  ARRAY 
STORAGE  FOR  CXXS  COVARIANCE  ARRAY 
ARRAY  OF  EIGENVECTORS 
ARRAY  OF  EIGENVALUES 

B OOT  T ANO  B DOT  R COVARIANCE  MATRIX 

ARRAY  OF  EIGENVECTORS 

ARRAY  OF  EIGENVALUES 

STORAGE  FOR  IPRINT 

ARRAY  OF  STANDARD  DEVIATIONS  ANO 
CORRELATION  COEFFICIENTS 

MATRIX  WHOSE  HYPERELLIPSOID  IS  TO  BE 
COMPUTED 

STORAGE  FOR  PS  COVARIANCE  ARRAY 

STORAGE  FOR  P COVARIANCE  ARRAY 

MOST  RECENT  NOMINAL  SFACECRAFT  STATE  AT 
TIKE  TP1 2 

TINE  TO  WHICH  PREDICTION  IS  TO  BE  MAOE 
MATRIX  TO  BE  DIAGONALIZED 


CXSU 

ICOOE 

RI1 


CXSV  CXU  CXV  CXXS 

IPRINT  NPE  PS  P 


PRES IK- B 


COMMON 

COMPUTED! 

DELTH 

RX 

TRTH1 

XXI 

XI 

COMMON 

USED! 

ADEVXS 

ADEV  X 

EOEVXS 

EDEVX 

EH 

FOP 

FOV 

XEIG 

XHtr  i 

ISTHC 

NOXH1 

NOXM2 

NOXH3 

NGE 

WTMC 

ONE 

PHI 

Q 

TEVN 

TPT2 

TSOI1 

TXXS 

UQ 

VO 

M 

XF1 

XF 

XSL 

ZERO 

tr  trvwr-.* 


presix-i 


PRZ82X  Analysis 


j ‘ 


.«  I, 


Subroutine  FRZSIX  executes  a prediction  event  in  the  simulation  mode. 

In  a prediction  event  the  knowledge  covariance  partitions  and  the  estimated 
position/velocity  deviations  from  the  most  recent  nominal  trajectory  are 
propagated  forward  to  t , the  time  to  which  the  prediction  la  to  be 


made.  The  knowledge  covariance  partitions  are  propagated  using  the  pre- 
diction equations  found  in  the  HARM  Analysis  section.  The  estimate  is 
propagated  using  the  equation 


'V 

61  - +(t  , t.)  AX,  + 6 (t  , t.)  AX 

p p r j p i 


where  4>  and  9, 


are  the  state  transition  matrix  partitions  over  the 


time  interval 


[v  fp]  • 


The  position  and  velocity  partitions  of  the  propagated  knowledge  covariance 
are  diagonalized  at  time  t and  the  eigenvalues,  eigenvectors,  and  hyper- 

ellipsoids  are  computed.  If  a guidance  event  has  occurred  previously,  so 
that  the  matrix  M relating  B*T  and  B*R  variations  to  position  and 
velocity  deviations  at  sphere  of  influence  is  available,  and  if  tp  is 

within  one  day  of  the  time  t at  which  the  Bphere  of  influence  is  en- 

SI 

countered,  then  the  B-T  and  B*R  covariance  matrix  is  also  conn  uted . 


f 
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PRZSIM-2 


£ 

- - <* 

l 

*4 


I 
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PRZSIK-3 


Compute  the  predicted  position/vel- 
ocity deviation  et  time  t . Write 


out  these  deviations  and  the  most 
recent  nominal  trajectory  at  t . 


Call  JAC0BI  and  HYEliJ  to  compute  the 
eigenvalues,  eigenvectors,  and  hyper- 
ellipsoids  of  the  position  and  velocity 
partitions  of  the  knowledge  covariance 
matrix  at  t„  . Write  out  these  results, 


Have  any  guidance  events  occured  and 
is  t within  one  day  of  t 1 


Ccrapute  the  correlation  matrix  and 
standard  deviations  of  B'T  and  B-l 
at  t . Compute  the  associated  eigen- 
values and  eigenvectors.  Write  out 
these  results. 


Beset  targeted  and  most  recent  nominal 
states  in  preparation  for  next  cycle. 
BeBtore  saved  values  of  all  knowledge 
covariance  partitions  at  time  t,  . 


RETURN 


PRINT- A 


SUBROUTINE  PRINT 

PURPOSE!  TO  PRINT  THE  VIRTUAL  NASS  INFORMATION  SPECIFIES). 

CALLING  SEQUENCE!  CALL  PRINT 

SUBROUTINES  SUPPORTED!  VHP 

SUBROUTINES  REQUIREO!  TIHE  TRAPAR  NEWPGE  SPACE 

LOCAL  SYMBOLS!  D INTERMEDIATE  VARIABLE  USED  FOR  PRINTOUT 

I OAY  DAY  OF  CALENDAR  DATE  OF  CURREMl  TIME 

I HR  HOUR  O'’  CALENDAR  DATE  OF  CURRENT  TIME 

INCMNT  CURRENT  TOTAL  INCREMENTS  FOR  PRINTOUT 

IP  COOE  OF  I-TH  PLANET  FOR  PRINTOUT  PURPOSES 

IYR  YEAR  OF  CALENDAR  DATE  OF  CURRENT  TIME 

MIN  MINUTES  OF  CALENDAR  DATE  OF  CURRENT  TIME 

MO  MONTH  )F  CALENDAR  DATE  OF  CURRENT  TIME 

RP  RADIUS  OF  I-TH  PLANET  RELATIVE  T 0 INERTIAL 

FRAME 

RS  RADIUS  OF  VEHICLE  RELATIVE  TO  INERTIAL 

FRAME 

RV  RADIUS  OF  VIRTUAL  MASS  RELATIVE  TO  > 

INERTIAL  FRAME 

SEC  SECONDS  OF  CALENDAR  DATE  OF  CURRENT  TIME 

TMP  POSITION  AND  VELOCITY  OF  VIRTUAL  MASS 

RELATIVE  TO  PLANETS 

VMR  MAGNITUDE  OF  VELOCITY  OF  VEHICLt  RELATIVE 
TO  VIRTUAL  MASS 

VP  MAGNITUOE  OF  VELOCITY  OF  I-TH  PlANET  FOR 

PRINTOUT  PURPOSES 

A 

VS  MAGNITUOE  OF  VELOCITY  OF  VEHICLE  RELATIVE 

TO  INERTIAL  FRAME 

VSP  MAGNITUOE  OF  VELOCITY  OF  VEHICLt  RELATIVE 
TO  I-TH  PLANET  FOR  PRINTOUT  PURPOSES 

VV  MAGNITUDE  OF  VELOCITY  OF  VIRTUAL  MASS 


RELATIVE  TO  INERTIAL  FRAME 


COMMON  COMPUTED /USED I F V 

COMMON  USED!  INCMNT  IPRT  NBODYI 

PLANET  ZERO 


NBODY 


♦ 


PRIKT3-A 


SUBROUTINE  PRINTS 

PURPOSE ' TO  PRINT  THE  PERTINENT  INFORMATION  AT  THE  END  OF  EACH 
MEASUREMENT. 

CALLING  SEQUENCE!  CALL  PRINTS! MMCODEt NR) 

ARGUMENT!  MMCOOE  I MEASUREMENT  COOE 

NR  I NUMBER  OF  ROWS  IN  THE  OBSERVATION  MATRIX  H 

SUBROUTINES  SUPPORTEOt  ERRANN 

SUBROUTINES  REQUIRED!  CORREL  EPKEM  ORB  ST HPR  TRAPAR 


LOCAL  SYMBOLS!  D 

TA 

03 

04 
10  AY 
IHR 
ININ 
IMO 
ITEMP 
IYR 
LOAY 
LHR 
LMIN 
LMO 
LYR 

M 

RME 

RMP 

I 

SECI 


INTERMEDIATE  DATE 

STATION  NUMBER 

JULIAN  DATE  OF  INITIAL  TIME 

JULIAN  DATE  OF  FINAL  TIME 

CALENDAR  DAY  OF  FINAL  TIME 

CALENDAR  HOUR  OF  FINAL  TIME 

CALENDAR  MINUTE  OF  FINAL  TIME 

CALENDAR  MONTH  OF  FINAL  TIME 

INTERMEDIATE  VARIABLE 

CALENDAR  YEAR  OF  FINAL  TIME 

CALENDAR  DAY  OF  INITIAL  TIME 

CALENDAR  HOUR  OF  INITIAL  TIME 

CALENDAR  MINUTES  OF  INITIAL  TIME 

CALENDAR  MONTH  OF  INITIAL  TIME 

CALENDAR  YEAR  OF  INITIAL  TIME 

NUMBER  OF  MEASUREMENT 

GEOCENTRIC  RAOIUS  OF  VEHICLE 

OISTANCE  OF  VEHICLE  FROM  TARGET  PLANET 

CALENDAR  SECONDS  OF  FINAL  TIME 


m 


449 


I 


i 

i 

i 

PR1NT3-B 

i 

i 

SECL 

CALENDAR  SECONDS  OF  INITIAL  TIKE 

| 

i 

■ ? 

TRTH2 

TRAJECTORY  TIME  AT  END  OF  INTERVAL 

f. 

* t 

VME 

MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE  TO 
TO  EARTH 

i 

! VHP 

MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE  TO 
TO  TARGET  PLANET 

COMMON  COMPUTED/ USED  I 
COMMON  USED! 


NO 

RE 

RTP 

XP 

AK 

ALNGTH 

AL 

AM 

CXSUP 

cxsu 

CXSVP 

CXSV 

CXUP 

cxu 

CY  VP 

CXV 

CXXSP 

CXXS 

DATE  J 

DElTM 

F 

G 

H 

IBARY 

IPR08 

I PRT 

MCNTR 

NTOD 

NB 

NDIM1 

NDIM2 

NDIM3 

NTP 

PP 

PSP 

PS 

P 

Q 

R 

S 

TM 

TRTMi 

UO 

VO 

XF 

XV 

XI 

XL  AB 

XSL 

XU 

PB1KT4-A 


SUBROUTINE  PRINT* 

PURPOSE*  THIS  SUBROUTINE  PRINTS  RELEVANT  DATA  AT  THE  END  Of  EACH 
MEASUREMENT  IN  THE  SIMULATION  MOOE 

CALLING  SEQUENCE*  CALL  PRINTMNHCODE.NR) 

ARGUMENT*  HNCOOE  X MEASUREMENT  CODE 

NR  I NUMBER  OF  ROUS  IN  ThE  OBSERVATION  MATRIX 

SUBROUTINES  SUPPORTED*  SZHULL 

SUBROUTINES  REQUIRED*  CORREL  EPHEN  ORB  STMPR  SUBl 

TRAPAR 

LOCAL  SYMBOLS*  ADON  ACTUAL  STATE  DEVIATION  FROM  TARGETED 

NOMINAL  TRAJECTORY 

AODI  ACTUAL  ORBIT  ESTIMATION  ERROR 

D INTERMEDIATE  OATE 

EOON  ESTIMATED  STATE  DEVIATION  FROM  ; ARGETED 
NOMINAL  TRAJECTORY 

IA  STATION  NUMBER 

18  STAR/PLANET  ANGLE  NUMBER 

M HEASURMENT  NUMBER 

ROM  ARRAY  OF  CORRELATION  COEFFICIENTS 

SQP  VECTOR  OF  STANOARD  DEVIATIONS 

TRTM2  TRAJECTORY  TIME  AT  END  OF  INTERVAL 

?£l  POSITION  NO  VELOCITY  OF  EARTH  ’ T TRTH1 

<-2  POSITION  ANO  VELOCITY  OF  EARTH  At  TRTN2 

XPl  POSITION  AND  VELOCITY  OF  TARGE"  ANET  AT 

TRTMl 

XP2  POSITION  ANO  VELOCITY  OF  TARGE.  ANET  AT 

TRTM2 

COMMON  COMPUTED/'  JEO*  NO 

COMMON  USED*  ADEVXS  ADEVX  AX  ALNGTM  Al 

AN  A NO IS  AR  AY  CXSUP 

A3 1 


s. 


I 


r ’ 


t 


* 


PRD.T4-  B 


cxsu 

CXSVP 

cxsv 

CXUP 

CXU 

CXVP 

CXY 

CXXSP 

cxxs 

OATEJ 

DELTM 

EDEVXS 

EOEVX 

Et 

F 

6 

MPHR 

H 

XBARY 

xprob 

IPRT 

MCHTR 

NBOD 

MB 

NDIHl 

N0IH2 

NOIH3 

HTP 

PP 

PSP 

PS 

P 

Q 

RES 

R 

s 

TH 

TRTH1 

UQ 

VO 

M 

XF1 

XF 

XII 

XI 

XL  AB 

XP 

XSL 

XU 

XV 

If 

zx 

X 


PANTS  3- A 


PROGRAM  PRNTS3 

PURPOSE*  TO  PRINT  A SUMMARY  Of  THE  ERROR  ANALYSIS  HOOE 


SUBROUTINES  SUPPORTED  I ERRON 
SUBROUTINES  REQUIREQt  CORREL  TIME 
LOCAL  SYMBOLS*  OS 

09 


HOLLERITH  LABEL  INITIAL 
HOLLERITH  LABEL  PINAL 


01  JULIAN  DATE,  EPOCH  JAN. 0,1900*  OF  INITIAL 
TIME 

02  JULIAN  DATE,  EPOCH  JAN.  0*1900,  OF  FINAL 
TIME 

03  JULIAN  DATE  OF  INITIAL  TIKE 

ON  JULIAN  OATE  OF  FINAL  TIME 

F FUNCTION*  SQUARE  ROOT  OF  SUM  OF  3 SQUARES 

IOAY  CALENDAR  DAY  OF  FINAL  TIME 

IHR  CALENDAR  HOUR  OF  FINAL  TIME 

ININ  CALENDAR  MINUTES  OF  FINAL  TIME 

IMO  CALENDAR  MONTH  OF  FINAL  TIME 

IYR  CALENDAR  YEAR  OF  FINAL  TIME 

LOAY  CALENDAR  DAY  OF  INITIAL  TIME 

LHR  CALENDAR  HOUR  OF  INITIAL  TIME 

LMIN  CALENDAR  MINUTES  OF  INITIAL  TIME 

LMO  CALENDAR  MONTH  OF  INITIAL  TIME 

LYR  CALENDAR  YEAR  OF  INITIAL  TIME 

RI  POSITION  AND  VELOCITY  OF  VEHICLE  AT 

INITIAL  TIME 

RMF  HELIOCENTRIC  RADIUS  OF  VEH*.  .£  AT  FINAL 
TIME 

RMI  HELIOCENTRIC  RAOZUS  OF  VEHICLE  AT  XNXUAL 
TIME 


A53 


T J“ST 


1 2i». 


PINTS  3-B 


SCCI  calendar  seconds  of  final  tine 

SC CL  CALENDAR  SECONOS  OF  INITIAL  TINE 

TRTN2  TRAJECTORY  TIKE  AT  END  OF  TRAJECTORY 

VE  POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE 

TO  EARTH  AT  FINAL  TINE 

VHF  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  AT  FINAL 

TIKE 

VHI  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  AT 

INITIAL  TIKE 

VT  POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 

TARGET  PLANET  AT  FINAL  TIKE 


COMMON 

CONPUT ED/USED 1 

OC 

DSI 

C0.4M0N 

COMPUTED! 

TRTK1 

COMMON 

USEOl 

ACCND 

ACC 

ALNGTH 

BDRSIx 

80TSI1 

8SI1 

a 

CXSU8 

CXSU 

CXSVB 

CXSV 

CXUB 

CXU 

CXV8 

C XV 

CXXSB 

CXXS 

OATEJ 

DELTH 

DELX 

•ONCN 

OTMA> 

FACP 

FACV 

FKTri 

IAUGIM 

I DKF 

IEPHEM 

IMNF 

IPR08 

ISPH 

ISTMC 

ISTMi 

KNCN 

MNNAHE 

NO  ACC 

NDIM1 

NDIK2 

NDIH3 

NEV1 

NEVZ 

NEV3 

NEV 

NMN 

NST 

NTHC 

NTP 

P8 

PLANET 

PS8 

PS 

P 

RCA1 

RE 

RSOI1 

RTP 

SAL 

SIGALP 

SIGBET 

SIGPRO 

SIGRES 

SLAT 

SLON 

TCA1 

TM 

TRTKB 

TSOI  1 

UST 

UO 

VSOI1 

VST 

VO 

MST 

XB 

XNM 

PRKTS4-A 


PROGRAM  PRNTS4 

PURPOSE!  TO  PRINT  OUT  A SUMMARY  OP  THE  SlMULATICN  MODE 
SUBROUTINES  SUPPORTEOl  SIMULL 

SUBROUTINES  REQUIRED!  CORREL  EPHEM  ORB  TIKE 

NOMINAL 

LOCAL  SYMBOLS!  AOON  ACTUAL  STATE  DEVIATION  FROM  TARGE. EO 

NOMINAL  TRAJECTORY  AT  FINAL  TIKE 

AODI  ACTUAL  ORBIT  ESTIMATION  ERROR  AT  FINAL 
TIME 

BLANK  BLANK  HOLLERITH  CHARACTER 

01  JULIAN  0 AT E * EPOCH  JAN. 0,1900,  OF  INITIAL 
TIME 

02  JULIAN  DATE,  EPOCH  JAN.0f1900»  OF  FINAL 
TIME 

03  JULIAN  DATE  OF  INITIAL  TIME 

0%  JULIAN  DATE  OF  FINAL  TIME 

EOON  ESTIMATED  STATE  DEVIATION  FROM  TARGETED 
NOMINAL  TRAJECTORY 

IOAY  CALENDAR  DAY  OF  FINAL  TIME 

I MR  CALENDAR  HOUR  OF  FINAL  TIME 

XMIN  CALENDAR  MINUTES  OF  FINAL  TIME 

IMO  CALENDAR  MONTH  OF  FINAL  TIME 

IYR  CALENDAR  YEAR  OF  FINAL  TIME 

lday 

LHR 
LMIN 
LMO 
LYR 
RE1 


i 

-t 

*■ 

l 

— - * 

1 

1 

1 

PJLVTS4-B 

\ 

RE  2 

POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 
TO  EARTH  ON  HOST  RECENT  NOMINAL 

- **  • 

1 

RES 

POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 
TO  EARTH  ON  ACTUAL  TRAJECTORY 

1 

RME1 

GEOCENTRIC  RAOXUS  OF  VEHICLE  ON  TARGETED 
NOMINAL  AT  FINAL  TINE 

RHE2 

GEOCENTRIC  RAOXUS  OF  VEHICLE  ON  HOST 
RECENT  NOMINAL  AT  FINAL  TIME 

RME3 

GEOCENTRIC  RADIUS  OF  VEHICLE  ON  ACTUAL 
TRAJECTORY  AT  FINAL  TIME 

d 

ri 

. ~r 

n^f 

-V*  T 

RME 

GEOCENTRIC  RADIUS  OF  VEHICLE  AT  INITIAL 
TIME 

RNP1 

DISTANCE  OF  VEHICLE  FROM  TARGET  PLANET  ON 
TARGETED  NOMINAL  AT  FINAL  TIME 

r, 

t 

RNP2 

OISTANCE  OF  VEHICLE  FROM  TARGET  PLANET  ON 
MOST  RECENT  NOMINAL  AT  FINAL  TIME 

it 

RHP  3 

OISTANCE  OF  VEHICLE  FROM  TARGET  PLANET  ON 
ACTUAL  TRAJECTORY  AT  FINAL  TIME 

\ 

RHP 

OISTANCE  OF  VEHICLE  FROM  TARGET  PLANET  AT 
INITIAL  time 

► 

RHS1 

HELIOCENTRIC  RADIUS  OF  VEHICLE  AT  FINAL 
TIME  04  TARGETED  NOMINAL 

j 

RHS2 

HELIOCENTRIC  RADIUS  OF  VEHICLE  AT  FINAL 
TIME  ON  MOST  RECENT  NOMINAL 

4 

RHS3 

HELIOCENTRIC  RADIUS  OF  VEHICLE  AT  FINAL 
TIME  ON  ACTUAL  TRAJECTORY 

V 

RHS 

HELIOCENTRIC  RADIUS  OF  VEHICLE  AT  INITIAL 
TIME 

\ 

X 

RPi 

STATE  3F  VEHICLE  RELATIVE  TO  TARGET  PLANET 
AT  FIMl  TIME  ON  TARGETEO  NOMINAL 

\ 

** 

* 

/» 

* 

L 

1 

RP2 

STATE  OF  VEHICLE  RELATIVE  TO  TARGET  PLANET 
AT  FIXAL  TIME  ON  MOST  RECENT  NOMINAL 

50' 

7/ 

1 

RP3 

STATE  OF  VEHICLE  RELATIVE  TO  TARGET  PLANET 
AT  FINAL  TIME  ON  ACTUAL  TRAJECTORY 

V 

<*■ 

% 

*2 

I 

SECX 

CALENDAR  SECONDS  AT  FINAL  TIME 

4 

% 

7 

l t M 

w 

i 

r* ' 

! 

PRNTS4-C 


' v 


i 

> 


n 


it 


3 » 


SECL  CALENDAR  SECONDS  AT  INITIAL  TIME 

VME  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 

TO  EARTH  AT  INITIAL  TIKE 

VME1  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 
TO  EARTH  ON  TARGETED  NOMINAL  AT  FINAL  TIME 


VNE2  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 
TO  EARTH  ON  MOST  RECENT  NOMINAL  AT  FINAL 
TIME 


VME3  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 
TO  EARTH  ON  ACTUAL  TRAJECTORY  AT  FINAL 
TIME 


VHP  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 

TO  TARGET  PLANET  AT  INITIAL  TIME 


VHP1  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 
TO  TARGET  PLANET  ON  TAR6ETED  NOMINAL  AT 
FINAL  TIME 


VMP2  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 
TO  TARGET  PLANET  ON  MOST  RECENT  NOMINAL  AT 
FINAL  TIME 
TIME 


VMP3  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 
TO  TARGET  PLANET  ON  ACTUAL  TRAJECTORY  AT 
FINAL  TIME 


VMS  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  AT 

INITIAL  TIME 

VMS1  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  AT  FINAL 
TIME  ON  TARGETEO  NOMINAL 

VMS2  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  AT  FINAL 
TIME  ON  MOST  RECENT  NOMINAL  TRAJECTORY 


VKS3  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  AT  FINAL 
TIME  ON  ACTUAL  TRAJECTORY 


COMMON 

COMPUTEO/USEOt 

NO 

RE 

RTP 

XP 

ZI 

COMMON 

USEOt 

AALP 

ABET 

ACCND 

ACC1 

ACC 

ADEVXB 

ADEVXS 

ADEVX 

ALNGTH 

APRO 

ARES 

AVARH 

BDRSI1 

BORSI2 

B0RSI3 

BDTSI1 

8DTSI2 

BDTSI3 

BSI1 

8SI2 

4 


PRKTT4-D 


vT 


8S 13 

B 

CXSUB 

CXSU 

CXSV8 

CXSV 

CXUB 

CXU 

CXVB 

CXV 

CXXS8 

CXXS 

DAB 

OATEJ 

DEB 

OELHUP 

OELrfUS 

DELX 

018 

OHAB 

0MUP8 

DMUS8 

ONCN 

DNOB 

DTNAX 

DM8 

EDEVXS 

E9EVX 

FACP 

FACV 

FNTH 

F 

H 

IAMHF 

IAUGIN 

I8ARY 

IDNF 

IHNF 

XPR08 

IS0I1 

XS0I2 

1SOI3 

ISTMC 

ISTMt 

MNCN 

HNNAKE 

NBOD1 

NBOD 

NB1 

NB 

MQ  ACC 

NOXK1 

N0XM2 

H0IN3 

NEV1 

NEV2 

NEV3 

NEV5 

NEV 

NMH 

MTHC 

NTP 

P8 

planet 

PSB 

PS 

P 

ROAi 

RCA2 

RCA3 

RSOI1 

RSOI2 

RS0I3 

SAL 

SIGALP 

SIGBET 

SXGPRO 

SIGRES 

SLAT 

SLON 

TCA1 

TCA2 

TC  A3 

TH 

TRTNB 

TSOX1 

TSOI2 

TSOIS 

TTIM1 

TTIH2 

UNMAC 

UST 

uo 

VS0I1 

VS0I2 

VS0I3 

VST 

VO 

MST 

XB 

XF1 

XF 

XL  A8 

XNH 

2F 

PSIM-  \ 


--x 


SUBROUTINE  PSIM 

PURPOSE*  TO  COMPUTE  THE  STATE  TRANSITION  MATRIX  PARTITIONS 
TXXS,  AND  T XU  OVER  AN  ARBITRARY  INTERVAL  OF  TIME 
T*Ui>  . 

PHI, 
( TK  , 

CALLING  SEQUENCE* 

CALL 

PSIM  (RI  ,RF  t ISO 

ARGUMENT*  ISC 

I 

CODE  SPECIFYING  WHICH  TECHNIQUE  IS  TO  BE 
USED  TO  COMPUTE  THE  STATE  TRANSITION  MATRIX 
PARTITION  PHI 

RF 

I 

POSITION  ANO  VELOCITY  OF  THE  VEHICLE 
ENO  OF  THE  TIME  INTERVAL 

AT  THE 

RI 

I 

POSITION  AND  VELOCITY  OF  THE  VEHICLE 
BEGINNING  OF  THE  TIME  INTERVAL 

AT  T HE 

SUBROUTINES 

SUPPORTED* 

SIMULL 

PRESIM 

PRl'Q 

SETEVS 

ERRANN 

BIAIM 

SETEVN 

GUISIM 

GUIDM 

GUISS 

GUIO 

SUBROUTINES 

REQUIRED* 

CASCAD 

ORB 

CONC2 

PCTM 

EPHEM 

PLND 

MUND 

NOTH 

LOCAL  SYMBOLS  I 0 INTERHEDI ATE  JULIAN  OATE 

CELT  TIME  INTERVAL  IN  CORRECT  UNITS 


DUH  TEMPORARY  STORAGE  FOR  STATE  TRANSITION 

MATRIX 

IANS  VARIABLE  USEO  IN  EXAMINING  IAUG  , lAt.GIN 

POSS  DISTANCE  OF  THE  VEHICLE  FROM  THE  TARGET 
PLANET  AT  INITIAL  TIME 

RS  POSITION  OF  VEHICLE  RELATIVE  TO  C jVERNING 

BODY  AT  INITIAL  TIME 

THSP  CONSTANT  EQUAL  TO  SIX  TIMES  THE  SPHERE  OF 
INFLUENCE  OF  TARGET  PLANET 

VEC  POSITION  AND  VELOCITY  OF  VEHICLE  RELATIVE  TO 


TARGET 

planet  at  initial  time 

VS 

VELOCITY  OF  VEHICLE  RELATIVE  TO  GOVERNING 
BODY  AT  INITIAL  TIME 

COMMON 

COMPUT ED/USED t 

NO 

XP 

COMMON 

COMPUTED* 

PHI 

T XU  TXXS 
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PSIM-  B 


COMMON  USED*  ALN6TH  DATE  J OELTH  OTHAX  F 

X AUG DC  I AUG  18 ART  ISTMi  NBOD 

N8  NOIN1  NDXM2  NTP  RVS 

SPHERE  TM  TRTM1  VMU  ZERO 


PSIM- 1 


P8IM  Analysis 


Subroutine  PSIX  controls  ths  computation  of  each  partiti  ->n  appearing  in 
the  augmented  state  transition  matrix: 


$(k+l,k)  9 (k+1  ,k)  9 (k+1  ,k) 


xx 


$A(k+l,k)  - 


xu 


.1 


"J 


The  first  part  of  the  subroutine  deals  solely  with  the  computation  of 
0(k+l,k)  by  one  of  three  techniques:  analytical  patched  conic,  analytic.  1 
virtual  mass,  or  numerical  differencing.  If  an  analytical  technique  is 
selected  for  computing  '(k+l,k)  over  an  interval  of  time  greater  than  he 
maximum  time  interval  for  which  the  analytical  technique  is  considered  valid, 
we  compute  tf(k+l,k)  using  numerical  differencing  or  by  cascading  Danby 
matrizants . 

The  remaining  partitions,  9^  and  8XU,  are  always  computed  by  numerical 

s 

differencing.  Columns  in  these  partitions  associated  with  target  planet 
gravitational  constant  or  orbital  elements  are  computed  only  if  the  spac  — 
craft  is  within  six  times  the  sphere  of  influence  of  the  target  planet  a . 

. Otherwise,  these  columns  are  set  to  zero. 


PS IX- 2 


PS IX  Plow  Chart 


* 

\ 

1 

4 


n 


)2 


K 

h 


PS  IK-  3 


I 

1 

I 

j 


NO 


NO 


Maintain  appropriate  columns 


of  © 


xx. 


and  © 


xu 


zero. 


i 

f 


SliiMSI «*- 


I 


PULCO/-A 


SUBROUTINE  PULCQV 


PURPOSE  COMPUTE  EFFECTIVE  EXECUTION  ERROR  COVARIANCE  MATRIX  FO* 
A VELOCITY  CORRECTION  MODELED  AS  AN  IMPULSE  SERIES 

CALLING  SEQUENCE!  CALL  PULCOVCRIN, OELTAV, TM, QK> 

ARGUMENTS  I RINC6)  I INERTaAL  STATE  OF  SPACECRAFT  AT  NOMINAL 

TIKE  OF  COR'^CTION 

DELTAVO)  I TOTAL  VELOCITY  INCREMENT  TO  JE  AODEO 


TK 

QK (6«  6) 

SUBROUTINES  SUPPORTEOt 
SUBROUTINES  REQUIRED! 
LOCAL  SYMBOLS!  OELR 

DELV 

OVFM 

OVIM 

FSER 

GSER 

HLTF 

PERT 

PHI 


QQ 


I TIME  UNITS  PER  DAY 

C DEVIATION  MATRIX  RESULTING  FROM  EXECUTION 
ERRORS 

EXCUT  EXCUTS 

PERMEL  QCOHP 

PERTUR8AT ION  IN  POSITION 

PERTURBATION  IN  VELOCITY 

MAGNITUDE  OF  FINAL  PULSE 

MAGNITUDE  OF  TYPICAL  PULSE 

f-5tRI£S  CONSTANT  FOR  PLANET 

G- SERIES  CONSTANT  FOR  PLANET 

STATES  OF  LAUNCH  AND  TARGET  BODIES  AT  ENr 
OF  PROPAGATIfU  INTERVAL 

CURRENT  PERTURBATION 

STATE  TRANSITION  MATRIX  OVER  TYPICAL 
INTERVAL 

DEVIATION  MATRIX  QUR*n:J  PROPAGATION 
THROUGH  PULSES 


Q TYPICAL  VELOCITY  EXECVTiON  ERROR 

COVARIANCE 

RF  NOMINE  INERTIAL  sT^TE  OF  SPACECRAFT  AT 

END  OF  TYPICAL  INTERVAL 

RPF  PERTURBED  INERTIAL  STATE  OF  SPACECRAFT  AT 
ENO  OF  TYPICAL  INTERVAL 

R TNERTIAL  STATE  OF  SPACECRAFT  AT  BEGINNING 


464 


PULCOV-B 


t 


r ' 


\’.Ax 


OF  TYPICAL  INTERVAL 
T1  TIKE  INTERVAL  BETWEEN  PULSES 

T2  Ti**2 

T3  Ti**3 


T%  Ti**% 
T5  Tl**5 
TS  Tl**6 


CONN ON  USED. 

DTI 

OVF 

OVI 

* 

FS 

GG 

GS 

NPVJL 

ONE 

PSI6A 

PSIGB 

PSIGK 

PSIGS 

RK 

TWO 

VK 

ZERO 
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PCLC0/-1 


KJIC0V  Analysis 


FUUCfV  ptoc easts  th«  control  covariance  through  tha  pulling  arc  to 
dttnalnt  a Mature  of  the  prohabiliatic  deviation  of  the  corrected 
trajectory  from  the  deaired  trajectory  resulting  from  execution  error*. 

The  pulsing  ire  itself  la  computed  In  PBSPUL.  It  consist*  of  H^-l  pulses 
Av^  and  a final  pulse  satisfying 

0-1)  Av  ♦ Av  - £v  (l) 

P i f 

where  A v is  the  equivalent  single  impulse.  The  pulses  are  e* pari  ted  by 
a tine  Interval  At^  • The  duration  of  the  entire  sequence  of  pulses  is 

given  by  AT  • (8p-l)  At^  . 

P UI£0V  suit  compute  the  execution  errer  matrices  Q,  corresponding  to 
the  nominal  pulse  Av^,  end  the  final  pulse  Av^  respectively.  The  error 
model  for  the  engine  is  defined  by  the  inpat  specifications 

proportionality  error 

resolution  error 

first  pointing  error 

seewod  pointing  error 


2 

a 

k 


The  execution  error  matrix  measuring  the  probabilistic  deviation  of  the 

\ 

actual  velocity  increment  from  the  deaired  velocity  increment  is  computed 
by  QC Wt. 


The  exact  equations  defining  the  propagation  of  the  covariance  matrix  are 
recursive  in  nature.  If  P£  la  the  control  covariance  immediately  after 

the  pulse,  the  covariance  will  propagate  to  the  time  of  the  next  pulse 


V 


•+1 


by  the  formula 


P ■ $ P ♦ 

k+i  k+l,k  k k+1 ,k 


(2) 


where  ♦ is  the  6x6  state  transition  matrix  relating  perturbations  at 

XT  1 ,k 


t^+^  to  perturbations  at 
covariance  by 


Adding  the  pulse  at 


expands  the 
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: r 


PULOW-2 


^ * - r ° ! °' 

p «p  +•---- 
k-fl  1H-1  [_  0 , Q 

wh«it  Q la  a«C  equal  either  to  tha  nominal  or  floal  font  of  Q 


(3) 


To  start  the  process  the  control  covariance  following  the  first  pulse  is 
given  by 

o ! o 


♦ 

p * 

l 


(4) 


.3  1 


For  efficiency  one  simplification  is  made  in  the  process.  Instead  of 
recomputing  the  state  transition  matrix  over  each  interval,  the  value  of 
that  matrix  is  held  constant  at  the  value  corresponding  to  the  "average 
interval".  To  explain  this,  let  the  state  of  the  spacecraft  at  the  time 
tQ  of  the  impulsive  Av  computation  be  denoted  r^,  v1  . Then  the 

"average  interval"  is  defined  to  be  the  perturbed  heliocentiic  trajectory 

(FEHHZL)  resulting  from  the  propagation  of  the  6tate  ( r^  , "v1  +4  Av  ) 

o o 

over  tha  Interval  ( t , t -f  At  ) . 

o o i 

The  constant  state  transition  matrix  $ is  ^computed  by  numerical  differ- 
encing. The  initial  state  ( "r^,  + % Av  ) is  first  propagated  over 

the  At^  time  Interval  (using  PERHF.L)  resulting  in  the  state  ( ~r^ , ) 

Then  the  x- component  of  initial  position  is  oertur bed  by  Ax,  leading  to 
a final  state  of  ('r^.'v'  ) upon  propagation.  - The  first  column  of  the 

matrix  is  then  computed  by 


♦ 

1 


*7  T 


Pf 


Ax 


V - V 

Pf  f 

Ax 


(5) 


The  other  columns  of  $ are  computed  by  Bimllar  computations  using  the 
remaining  components  of  position  and  velocity  (y,  z,  x,  y,  x) . 
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Coca  put*  final  position*  of  launch 

and  target  bodies  at  t + At, 

o i 


Cora  put*  nominal  state 
transition  matrix  4 


Compute  nominal  execution 
error  matrix  Q 


Propagate  control  covariance  to  next  pulse 

?"  - *P+*T 

k+1  k 


Last  pulse? 


Recompute  execution  error 
matrix  for  last  pulse  Q 


Update  covariance 

by  current 

execution  error 

P*  « ?'  + 

i — 

o 

o 

k+1  k+1 

1 I 

l 

Or 

o 

J 

Last  Pulse? 


PULSEX-A 


4 

* 


7.- 


SUBROUTINE  PUL SEX 

PURPOSES  TO  CONTROL  EXECUTION  OF  THE  PULSING  ARC  MODEL. 
CALLING  SEQUENCES  CALL  PULSEX(RINtOELTAVtRE*TM,IRE) 


ARGUMENTS  I RINC6) 


I INERTIAL  STATE  OF  SPACECRAFT  AT  NOMINAL 
TINE  OF  CORRECTION 


OELTAVCS)  I TOTAL  VELOCITY  INCREMENT  TO  BE  ADDED 

RE(6)  0 FINAL  INERTIAL  STATE  OF  SPACECRAFT  <IRE) 

TM  I TIME  UNITS  PER  DAY 

IRE  I FLAG  DETERMINING  FINAL  STATE 

*0  RETURN  FINAL  STATE  AT  END  OF  PULSE  ARC 
*1  RETURN  FINAL  STATE  AT  ARC  MIDPOINT 

SUBROUTINES  SUPPORTED S EXCUTE  EXCUTS  EXCUT 

SUBROUTINES  REQUIREOt  CAREL  PERHEL 


LOCAL  SYMBOLS!  A 

DTS 

DT 

E 

FSER 

GSER 

NLTF 

KLTI 

I PUL 
PP 
QQ 
RB 

TA 

TFP 


SEMIMAJOR  AXIS 

TIKE  INTERVAL  IN  TINE  UNITS 

DUMMY  VARIABLE  FOR  OUTPUT 

ECCENTRICITY 

F-SERIES  CONSTANT 

G-SERIES  CONSTANT 

STATES  OF  LAUNCH  ANO  TARGET  BODIES  AT  END 
OF  PROPAGATION  INTERVAL 

STATES  OF  LAUNCH  ANO  TARGET  BODIES  AT 
BEGINNING  OF  PROPAGATION  INTERVAL 

PULSE  COUNTER 

UNIT  VECTOR  TO  PERIAPSIS 

UNIT  VECTOR  IN  ORBITAL  PLAtC  NORMAL  TO  PP 

INERTIAL  STATE  OF  SPACECRAFT  AT  BEGINNING 
OF  PROPAGATION  INTERVAL 

TRUE  ANOMALY 

TIME  FROM  PERIAPSIS  ’ 


469 


PULS  EX- B 


TK  TIME  FROM  START  OF  PULSING  ARC 

TS  INTERHEOT  ATE  VARIABLE 

Ti  TIKE  INTERVAL  FROM  MIDPOINT  OF  ARC 

T2  Tl**2 

T3  Tl**3 

TA  Tl**4 

T5  T 1**5 

T6  Tl**6 

M ARGUMENT  OF  PERIAPSIS 

MW  UNIT  NORMAL  TO  ORBITAL  PLANE 

XI  INCLINATION 

XN  LONGITUDE  OF  ASCENOING  NODE 


COMMON  USE 01 

OTI 

DVF 

DVI 

F3 

GG 

GS 

NPUL 

ONE 

PULT 

RK 

TWO 

VK 

ZERO 
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I 


T 


PULS EX- 1 


; C 

PULS EX  Analysis 


i 

i 


jf 


i > 


i 

P 

I 


PUL SXX  Is  responsible  for  the  actual  execution  of  the  pulsing  arc.  Sxper- 

linen t a Lava  shown  that  adding  an  Impulsive  £v  at  time  t may  be  approx- 

o 

t mated  quite  closely  by  centering  an  equivalent  sequence  of  smaller  Impulses 
about  the  nominal  time  t 

o 

This  equivalent  sequence  of  thrusts  is  computed  by  PRRPUL.  It  consists  of 
Np  - 1 pulses  Av^  and  a final  pulse  5v^  satisfying 

(N  - 1)  Av.  + Av  - Av  (1) 

P 1 f 


The  pulses  are  separated  by  a time  Interval  At  . 

i 

entire  sequence  of  pulses  is  given  by  AT  « (N 


The  duration  of  the 
1)  Atr 


Por  efficiency  the  perturbed  heliocentric  conic  propagator  PERHEL  is  used 
to  propagate  the  trajectory  between  pulses.  PERHEL  requires  the  positions 
of  the  launch  and  target  bodies  at  the  beginning  and  end  of  each  propagation 
interval.  FRKPUL  stores  the  position  and  velocity  of  the  launch  and  target 
bodies  at  the  reference  tir«'  t : (t^,  ) and  ( "r^,  ) and 

stores  the  constants  of  the  t and  g series  for  those  states  (f  , g , 

La  °Lk 

f , g^,  k*l,6).  The  posltior  of  the  launch  body  at  some  time  t relative 
to  the  reference  time  t is  then  given  by 


r 

L 


(t) 


*L  <*> 


r + 
LO 


g.  (t)  * 


LO 


where  f (t) 

M 


g (t) 
L 


6 


E 

k«0 


f 

lit 


6 


E 

k-1 


k 

g t 
Lk 


(2) 


(3) 


with  similar  equations  holding  for  the  target  body. 

The  procedure  of  PUL£EX  is  straightforward.  The  positions  of  the  launch 
and  target  bodies  are  computed  at  the  time  the  pulsing  arc  should  begin: 
tg  ■ tQ  - AT/2.  PERHEL  is  then  called  to  propagate  the  spacecraft  from  tQ 

backwards  to  tg  . The  actual  pulsing  arc  cycle  Is  now  entered.  The  nominal 

velocity  increment  Av^  \.s  added  to  the  current  velocity  impulsively 

v*  - "v  + £vi  (4) 
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PULSEX-2 


and  the  resulting  state  ( r,  v ) is  propagated  forward  over  the  time 
interval  At^  by  PESHZL.  Another  pulse  is  added  and  the  process  repeated 

until  H - 1 pulses  have  been  added.  Finally  a pulse  of  Sv  is  added. 
P * 


Two  options  are  now  permitted.  If  LRZ  - 0 , the  final  state  is  not 

altered  (KCKHAL).  If  IBS  - 1,  the  final  state  is  propagated  backwards 

back  to  t for  use  in  EXBAH  and  SIKUL. 
o 


Finally  CAKEL  is  called  to  compute  the  conic  elements  of  the  final  state. 

For  comparison  purposes,  the  impulsive  Zv  is  added  to  the  state  at  t , 

o 

propagated  to  the  final  time  t^  ■ tQ  + AT/2  by  FE&KEL,  and  those  elements 
computed. 


:;£u S&ki&di **  'Jfirtfc 


V 


.-.A 


* . 


QCCKP-A 


SUBROUTINE  QCOMP 

PURPOSE!  TO  COMPUTE  THE  EXECUTION  ERROR  COVARIANCE  MATRIX  FOR  A 
VELOCITY  CORRECTION. 

CALLING  SEQUENCE!  CALL  QCOMP(V,EH,Q> 

ARGUMENT!  V I VELOCITY  CORRECTION 

Q 0 EXECUTION  ERROR  '.ATRIX 

EH  I ERROR  MODEL  (SIGRES , SIGPRO, SIGALP ,SIGBET> 

SUBROUTINES  SUPPORTED!  BIAIM  GUISIM  PULCOV  GUXOM 


LOCAL  SYMBOLS! 


- £ 


If 

f 

l 


AU  SIGALP/U2 

BRK  SIGPRO*  SIC RES/R2 

BU  SIGBET/U2 

R2  U2*Z2 

U2  X2*Y2 

X2  V (1)  SQUARED 

Y2  V ( 2)  SQUARED 

Z2  V (3)  SQUAREO 


i 

r 

£ 


1 


474 


QCCKP-1 


QC£KP  Analysis 


Subroutine  QC0HP  computes  the  execution  error  covariauce  matrix  for 

a velocity  correction  Av  - <Av  ,Av  ,Av  ) occurring  at  time  t,  . If 

x y z J 

the  execution  error  is  assumed  to  have  form 

6 &V  - + + 6 

AV  pointing 


where  k is  the  proportionality  error  and  s is  the  resolution  error, 
then  the  elements  of  the  matrix  are  given  by 


v - &v_2  r<7 2 + — . 


x k 


2 2 ^2 


&W  <7a  + A V,;AV  ^ 

,,  2 


Q - Q « Av  Av  cr 

12  21  x^  y it 


2 2 2 

2 as  PW« 


Av  2 2 


<L  - Q - Av  Av  a 2 + \ - ff  <5£ 

13  31  x £ ^ 

u 

o 2*2  222 

^ 2 f 2 <r  2 “]  A V P'  V Av  ^v, 

Q . AV  a 4 -Sr  f 2 + 5djf-r7..« u 

22  y L k p2  -1  ^2 


^ /v  r 2 a 2 

o - c • Av  Av  <r  + . o ,, 


q23  • s2  • ; »k  + 


. 2 r 2 °t 

o - Av  a + 

33  8 k . p' 


2 2 
+ P 


2 2 2 2 2 2 

where  V « AV,  + Av  , P m M +AV  and  <72,  <7  2,  ft2  and 

2 * 7 * s k cor 

aia  are  the  variances  associated  with  the  resolution,  proportional  1 ty,  and 
two  pointing  errors,  respectively. 
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QUASI- A 


PROGRAM  QUASI 

PURPOSES  PERFORM  QUASI-LINEAR  FILTERING  EVENT  IN  THE  SIMULATION 
PROGRAM 

CALLING  SEQUENCES  CALL  QUASI 
SUBROUTINES  SUPPORTEOl  SIHULL 

LOCAL  SYMBOLS  I 


COMMON 

COMPUTEO/USEDS 

AOEVX 

EOEVX 

NQE 

XF  1 

COMMON 

COMPUTED! 

TRTM1 

XII 

XI 

• 

COMMON 

USEDI 

AOEVXS 

XF 

EOEVXS 

XSL 

NOIM1 

ZERO 

TEVN 

W 
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QUASI-1 


QUASI  Analysis 

At  a quasi-linear  filtering  event  the  most  recent  nominal  trajectory  is 
updated  by  using  the  most  recent  state  deviation  estimate.  If  X4  is  the 

most  recent  nominal  position/velocity  state  immediately  preceding  the  event 

7- 

at  time  t , and  if  i X , is  the  position/velocity  deviation  estimate, 

then  Immediately  following  the  quasi-linear  filtering  event,  the  most  recent 
nominal  posxtlon/veloclty  state  is  given  by 

x)  - XJ  * 

The  estimated  and  actual  deviations  from  the  moat  recent  nominal  trajectory 
must  also  be  updated; 

«S  + - 0 

^ . X a * 

ili  - 4X4  - 6 X 

j j j 


A quasi- linear  filtering  event  in  no  way  alters  the  knowl  ;e  ana  control 
uncertainties  at  time  t . Thus  knwledge  covariance  P and  control 

J 

covariance  P remain  constant  across  a quasi-linear  filtering  event. 

J 

Furthermore,  slncejao  velocity  c'-rection  is  performed,  the  (most  recen1-'' 
targeted  nominal  X^  is  unchanged.  Neither  is  the  solve- tor  parameter 

state  updated  et  a quasi-linear  filtering  event. 
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QUASI- 2 


QUASI  71cm  Chart 


ENTTZE 

V 


Increment  quasi- linear 
filtering  event  counter, 


Write  out  actual  uynamic  noise 
and  estimated  and  actual  dev- 
iation a f *00  most  recent  nomin- 
al at  time  t<  irraedlataly 

J 


preceding  the  etc  l . 


— . — 1 

' 

Update  and  write  out  most  recent 
n'  ..ual  position/velocity  state. 

\ 

1 

Update  and  write 

out  estimated 

and  actual  state  deviations  at 
time  t^+  immediately  following 

..he  event. 


* 

xeset  state  vectors  and  trajectory 

t?jte  in  preparation  tor  next  cycle. 
S*t  H5MTEJ  ■ 1 since  targeted 
nominal  and  moat  recent  nominal 
r.o  longer  coincide. 


HEUK-A 


FUNCTION  RNUN  ? 

PURPOSE!  TO  RETURN  RANDOM  NUMBERS  ON  A NORMAL  DISTRIBUTION  MITM 
MEAN  EERO  AND  STANDARD  DEVIATION  SIGN A. 

CALLING  : ~OUENCEl  Z-RNUM (SIGMA) 

ARGUMENT!  SIGMA  I STANDARD  DEVIATION 

SUBROUTINES  SUPPORTED!  SIMULL 

LOCAL  SYMBOLS!  A SUM  OF  TMELVE  RANDOM  NUMBERS  BETNEEN  ZERO 

AMD  ONE 

NX  CONTROLLING  INTEGER 

N INTERMEDIATE  INTEGER 

Q INTERMEDIATE  VARIABLE 

RNUN  RANDOM  NUMBER  FROM  NORMAL  DISTRIBUTION 
MITM  MEAN  ZERO  AND  STANOARD  DEVIATION 
SIGMA 


RR 

INTERMEDIATE 

VARIABLE 

SS 

INTERMEDIATE 

VARIABLE 

MM 

INTERMEDIATE 

VARIABLE 

Ml 

INTERMEDIATE 

VARIABLE 

YY 

INTERMEDIATE 

VARIABLE 

Y1 

INTERMEDIATE 

VARIABLE 

ZZ 

INTE RNEDIATE 

VARIABLE 

Z1 

INTERMEDIATE 

VARIABLE 

1 


_ ' 

wrat-i 

UKlt  Analysis 

Function  subprogram  RfTUM  supplies  random  numbers  on  a normal  distribution 
with  near  sero  and  standard  deviation  a • 

Twelve  random  numbers  between  0 and  1 are  computed,  which  are  then 

used  to  compute  the  returned  random  number  IZQM  using  the  following 
equation: 


SCHED-A 


SUBROUTINE  SCHEO 

PURPOSES  TO  DETERMINE  WHAT  TYPE  OF  MEASUREMENT  IS  TO  BE  TAKEN 
NEXT  AMO  AT  MHAT  TINE  IT  MILL  OCCUR. 

CALLING  SEQUENCES  CALL  SCHE0(Tl*T2f HMCOOE> 

ARGUMENTS  HHCQOE  0 MEASUREMENT  MOOEL  COOE 

Ti  I PRESENT  TRAJECTORY  TIME 

T2  0 TRAJECTORY  TIKE  AT  WHICH  THE  NEXT 

MEASUREMENT  OCCURS 

SUBROUTINES  SUPPORTEOl  SIHULL  ERRANN 


LOCAL  SYMBOLS S 


INDEX 


COMMON  USED I 


HCNTR  MCODE 
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SCHED-l 


rlow  Chart 


ENTER 


MCNTR  - NMN 


RETURN 


SEBXE-A 


4 


t't- 


SUBROUTINE  SERIE 

PURPOSE*  TO  COMPUTE  THE  TRANSCENDENTAL  FUNCTIONS  USED  IN  ELITE* 
CALLING  SEQUENCE!  CALL  SERIE (X,SX» CX) 


ARGUMENTS!  X I 

SX  0 

CX  0 


INDEPENDENT  VARIABLE 
8ATTIN  S-FUNCTION  OF  X 
BATTIN  C-FUNCTION  OF  X 


SUBROUTINES  SUPPORTEQl  FLITE 
SUBROUTINES  REQUIRED*  NONE 
LOCAL  SYMBOLS!  COSH 

SINH 
E 


STATEMENT  FUNCTION  FOR  HYPERBOLIC  COSINE 
STATEMENT  FUNCTION  FOR  HYPERBOLIC  SINE 
SORT  OF  ABS  VALUE  OF  X 


i 

! 
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1.  ■ 


SKRIE- i 


SKR1Z  Analysis 


8 ERIE  computes  the  transcendental  functions  S(x)  and  C(x)  used  In 
tha  FLXTS  prog tea  in  the  solution  of  Lambert's  thoorea. 

The  functions  S(x)  and  C(x)  are  defined  by 

VT  - sin  v/aT 


S(x)  - 


JLii 

3 


* >0 


8 inh 


- /-» 


x < 0 


J. 

6 


x - 0 


(1) 


C(x)  - 


1 - COS  j/r 
X 


■ co°h 


y^r.  i 


-x 


1 

2 


x > 0 


x <.  0 


x 0 


(2) 


For  small  values  of  ( x | the  Taylor  series  expansions  are  used 


S(x) 

1 

3! 

X 

4! 

4. 

+ *_ 
5! 

C(x) 

_ 1 

2: 

X 

3.' 

2 

+ 2L- 
4.' 

r I • 


— + 

, . ' • • * 


(3) 
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SKRH-2 


SEME  Flow  Chart 


SETEVK-A 


SUBROUTINE  SETEVN 

PURPOSE  PERFORM  ALL  COMPUTATIONS  COMMON  TO  MOST  EVENTS  IN  THE 
ERROR  ANALYSIS  PROGRAM 

CALLING  SEQUENCE*  CALL  SETEVN(RIfTEVNtNCOOE) 

ARGUMENT*  NCOOE  I EVENT  CODE 

RI  I TARGETED  NOMINAL  SPACECRAFT  STATE  AT 

PREVIOUS  MEASUREMENT  OR  EVENT  TIME 

TEVN  I EVENT  TIME 

SUBROUTINES  SUPPORTEO*  ERRANN 

SUBROUTINES  REQUIRED*  CORREL  OYNO  HYELS  JACOBI  NAVM 

NTM  PSIM  STMPR  TITLE  TRAPAR 

LOCAL  SYMBOLS  BLANK  DUMMY  CALLING  ARGUMENT 

EGVCT  ARRAY  OF  EIGENVECTORS  CORRESPONDING  TO  THE 
COLUMNS  OF  A GIVEN  MATRIX 

EGVL  ARRAY  OF  EIGENVALUES  RELATED  TO  THE 
EIGENVECTORS  CONTAINEO  IN  EGVCT 

ICOOE  INTERNAL  CONTROL  FLAG 

OUT  SQUARE  ROOTS  OF  EIGENVALUES 

PEIG  MATRIX  FOR  MHICH  HYPERELLIPSOID  IS  TO  BE 
COMPUTED 

RF  NOMINAL  SPACECRAFT  STATE  AT  EVENT  TIME 


VEIG  MATRIX  TO  BE  OIAGONALIZEO 


COMMON 

COMPUTED/USED* 

TRTM1 

XF 

COMMON 

COMPUTEO* 

. OELTM 

XI 

COMMON 

USED* 

CXSU 

CXSV 

CXU 

CXV 

CXXS 

FOP 

FOV 

IEIG 

IHYP1 

IPRT 

ISTMC 

NTHC 

PS 

P 

Q 

UQ 

VO 

XL  AB 
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sravs-i 


* 


SETEVX  Analysis 


Prior  to  executing  any  event  in  the  error  analyals  mode,  aubroutine 
SmSVH  la  called  to  perform  a serlea  of  computations  which  are  common 
to  all  events.  Subroutine  SETEVN  computes  the  targeted  nominal  trajectory 
at  t.  , and  propagates  the  kma/ledge  covarlcnce  partitions  at  t^  , the 


J 

time  of  the  previous  event  or  measurement,  forward  to  t~me 
prediction  equations  found  In  the  HAVX  Analyals  section. 


t using  the 


Por  any  event  other  than  a prediction  event,  subroutine  SETEVN  also 
computes  eigenvalues,  eigenvectors,  and  hyperellipsoids  of  the  position 
and  velocity  partitions  of  the  knowledge  covariance  at  t . 


I 


I 


f 


-J 


i 

9 I 
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v 
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4 
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"> 
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SETEVS-A 


SUBROUTINE  SETEVS 

PURPOSE  PERFORM  ALL  COMPUTATIONS  COMMON  TO  MOST  EVENTS  IN  THE 
SIMULATION  PROGRAM 

CALLING  SEQUENCES  CALL  SETEVS(RI ,TEVN,RX1 ,NCODE> 

ARGUMENT!  NCODE  I EVENT  COOE 


RI  I TARGETED  NOMINAL  SPACECRAFT  STATE  AT 

PREVIOUS  MEASUREMENT  OR  EVENT  TIME 

RIl  I MOST  RECENT  NOMINAL  SPACECRAFT  STATE  AT 
PREVIOUS  MEASUREMENT  OR  EVENT  TIME 


TEVN  EVENT  TIME 

SUBROUTINES  SUPPORTED!  SIMULL 

SUBROUTINES  REQUIRED!  CORREL  DYNOS  HYELS  JACOBI  NAVM 

NTMS  PSIM  STMPR  TITLES  TRAPAR 

LOCALi  SYMBOLS  DUM  INTERMEDIATE  VECTOR  7 

EGVT  ARRAY  OF  EIGENVECTORS 

EGVL  ARRAY  OF  EIGENVALUES 

ICODE  INTERNAL  CONTROL  FLAG 

" OUT  SQUARE  ROOTS  OF  EIGENVALUES 

PEIG  MATRIX  WHOSE  MYPERELL IPSOIO  IS  TO  BE 

COMPUTED  > 

RF1  MOST  RECENT  NOMINAL  SPACECRAFT  STATE  AT 

EVENT  TIME 

RF  TARGETED  NOMINAL  SPACECRAFT  STATE  AT  EVENT 

TIME 

VEIG  MATRIX  TO  BE  DIAGONALIZEO 


COMMON 

COMPUT  ED/USEO 1 

AOEVX 

EDEVX 

TRTMl 

a XF1 

XF 

XII 

ZF 

ZI 

COMMON 

COMPUTED! 

DELTM 

XI 

COMMON 

USEOl 

AOEVXS 

CXSU 

CXSV 

CXU 

CXV 

cxxs 

EDEVXS 

FOP 

FOV 

IEIG 

IMYPI 

IPRT 

ISTHC 

NOIM1 

NGE 
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SETZVS-i 


82T2VS  Analysis 


Prior  to  executing  any  event  in  the  simulation  mode,  subroutine  SZTEVS  i-i 
called  to  perform  a series  of  computations  which  are  common  to  all  event!.. 
After  computing  the  targeted  nominal  and  moBt  recent  nominal  states  at 
the  time  of  the  event  t.  , knowledge  covariance  partitions  are  propagati  d 
forward  to  time  t^  fro*  u_«e  t^_i  of  the  previous  event  or  measurement 

using  the  prediction  equations  found  in  the  NAVM  Analysis  section.  The 
actual  trajectory  state  at  t^  is  computed  using 


- Z,  + CO 


where  Z^  is  the  actual  trajectory  state  assuming  no  unmodeled  acceleration 
has  been  acting  on  the  spacecraft,  and  U)i  is  the  contribution  of  the  actual 
unmodeled  acceleration  to  the  actual  trajectory  state  at  t,  - The  actual 

J 

and  predicted  position/velocity  deviations  from  the  most  recent  nominal  at 
tj  are  given  by 


61, 


X,  - xi 


and 


A 


‘V  *(V  Vi>  + ex»  <V  W **., 


respectively,  where  $ and  d are  the  state  transition  matrix  partitions 


over 


[Vi.  ‘j] 


XX 


For  any  event  other  than  prediction  and  quasi-linear  filtering  events,  sub- 
routines SKTEVS  also  computes  eigenvalues,  eigenvectors,  and  hypercllipBoids 
of  the  position  and  velocity  partitions  of  the  knowledge  covariance  at  t^  . 
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SETfcVS-3 


Call  DYK06  Co  compute  effect 
of  u rood  e led  acceleration. 

Dae  to  update  actual  position/ 
velocity  state  at  t . 


Write  out  targeted  nominal , 
most  recent  nominal,  and  actual 
trajectories  at  t . 


XP8T(4)  f 0? 


Call  T8APAR  to  compute  and 
write  out  set  of  navigation 
parameters  for  the  actual 
trajectory. 


Writ*  out  state  transition 
matrix  partitions  and  the 
diagonal  of  the  dynamic  noise 
covariance  matrix  over 

[Vr  \ J • Wrlte  out 

knowledge  correlation  par- 
titions and  standard  deviations 
at  t,  . 


Compute  actual  and  predicted 
poslt'lon/veloclty  deviations 
from  the  most  recent  nominal 


Is  event  i prediction  or 
quasi- linear  filtering  event? 


V 


1 


. 


SETEVS-4 
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PROGRAM  SXHUL 

PURPOSE!  TO  CONTROL  THE  COMPUTATIONAL  FLOW  THROUGH  THE  BASIC 
CYCLE  (MEASUREMENT  PROCESSING)  ANO  ALL  EVENTS  IN  THE 
SIMULATION  PROGRAM 

SUBROUTINES  SUPPORTEOI  MAIN 

SUBROUTINES  REQUIRED!  BIAS  OYNOS  MENOS  NAVM  NTMS 

TRAK3  PRINTA  PSIM  SCHEO  SETEVS 


LOCAL  SYMBOLS  BVAL 
DUMM 
DUN 
IPRN 
MM CODE 
NEVENT 
RNUH 
TRTN2 


ACTUAL  MEASUREMENT  8IAS  VECTOR 
INTERMEDIATE  VARIABLE 

intermediate  vector 

MEASUREMENT  PRINT  TIME  COUNTER 
MEASUREMENT  CODE 
EVENT  COUNTER 
RANDOM  MEASUREMENT  NOISE 
TIME  OF  THE  MEASUREMENT 


COMMON 

CONPUTEO/USEOl 

AOEVX 

ANOIS 

AY 

EOEVXS 

EOEVX 

EY 

ICOOE 

MCNTR 

NAFC 

RES 

RF1 

RI1 

RI 

TEVN 

TRTM1 

XF1 

XF 

XII 

XI 

ZF 

ZI 

COMMON 

COMPUTED! 

ayhey 

DELTH 

EDEVSH 

EDEVXM 

COMMON 

USED! 

AK 

AM 

AR 

FNTM 

H 

IEVNT 

I PRINT 

ISTMC 

NAE 

NAF6 

NDIM1 

NEV 

NGE 

NMN 

NOE 

■ NR 

NTMC 

PHI 

RF 

S 

TEV 

TXXS 

N 

ZERO 

A 95 


v_ 
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62XUL  Analysis 


SXKDlrl 


The  primary  function  of  subroutine  SIMUL  is  to  control  the  computational 
flow  through  the  basic  cycle  (measurement  processing)  and  all  events  in 
the  simulation  mode.  Subroutine  SIMUL  also  performs  some  computations 
in  the  basic  cycle.  All  event-  elated  analysis  is  presented  in  the  event 
subroutines  themselves  and  will  not  be  treated  below. 

In  the  basic  cycle  the  first  task  of  SIMUL  is  to  control  the  generation 
of  targeted  nominal  and  most  recent  nominal  spacecraft  states,  ^ and 

M 

X^+1  , respectively,  at  time  t^  , given  states  and  X^  at  time  t^  . 

Then,  calling  PS IM , DYN0S,  TEARS,  and  MKN0S,  successively,  SIMUL  controls 
the  computation  of  all  matrix  information  required  by  subroutine  NAVM  in 
order  to  compute  the  covariance  matrix  partitions  at  time  t^^  immediately 
following  the  measurement. 

After  computing  the  actual  state  at  time  t^  from 

x - x + <5x  (l) 

k k k 


where  6 X is  the  actual  spacecraft  state  deviation  from  the  most  recent 

k 

norain'’.,  S1XUL  controls  the  generation  oi  the  actual  state  Z,  at  time 
t^  before  the  effect  of  unmodeled  acceleration  has  been  added.  Then, 

having  called  DYN0S  to  compute  the  effect  of  unmodeled  acceleration  u>  , 

k+1 

SIMUL  computes  the  actual  state  and  actual  state  deviation  at  time  : 


4Vi  - V1-V1 


With  both  the  most  recent  nominal  and  actual  spacecraft  states  available 
at  > SIMUL  calls  TEAKS  twice  in  succession  to  compute  the  ideal 

measurements  Y,  and  Y , respectively,  which  would  be  made  at  each 
k+ 1 -k+1 

of  these  trajectory  states.  Calling  MENpS,  BNUM,  and  BIAS  to  compute  the  actual 
measurement  noise  and  bias  corrupting  the  ideal  measurement  associated  with 
the  actual  state,  SIMUL  computes  the  actual  measurement  at  time  using 


49b 


■* 


SIXUL-2 


vhere  b , and  , . , represent  the  actual  measurement  bias  and  noise, 

k+1  k+l 

respectively. 

All  information  required  for  computing  both  predicted  and  filtered  state 
deviations  from  the  most  recent  nominal  at  t^^  is  new  available.  With 

§ and  Q denoting  state  transition  matrix  partitions  over  the  time 

interval  ] « SIMUL  computes  the  predicted  spacecraft  state 

deviations  and  solve- for  parameter  deviations  at  t^_^  using 


/X  - 


§tx*  + e ix  * 

**■  X XX  s. 


«v 

k+1 


A + 


Prior  to  computing  filtered  deviations,  SIMUL  computes  the  measurement 
residual  from 


( Y -Y  ) - H dX  - M 6X  ' 

k+1  k+1  k+1  k+1  k+1  s, 


where  E and  M are  observation  matrix  partitions.  Filtered 

k+1  k+1 

spacecraft  state  deviations  and  solve- for  parameter  deviations  are  then 
computed  from 


iX  + X € 

k+1  k+1  k+1 


ix  " + S € 

8k+l  W-l  k+1 


where  and  Sj^  are  the  filter  gain  constants. 


SXKUL-3 


I 


SLKUL-4 
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SXXUL-5 


Compute  Actual  a tat*  after 

effect  of  umnodeled  acceleration 
has  been  added. 


Compute  actual  state  deviation  6x^ 


Call  TRAX£  to  compute  ideal  meas- 
urement i from  most  recent 
nominal. 


Call  TRAXS  to  compute  ideal  meas- 
urement from  actual  trajectory. 


Call  HENpS  to  compute  R 


Compute  actual  measurement  noise  p 


Call  BIAS  to  compute  b, 


k+1  ' 


Compute  actual  measurement  Y . . 

k+1 


Compute  -quantities  required  for 
adaptive  filtering. 


— 


SQCUle-6 


v-t 


W 


* 1 


lt 

T> 
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>1 

o 

M 


t 

r 
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SUBROUTINE  SPACE 

PURPOSE!  COUNTS  THE  NUMBER  OF  LINES  BEING  PRINTEO  TO  DETERMINE 
WHEN  TO  SKIP  TO  THE  NEXT  PAGE  WITH  A NEW  HEADING 

CALLING  SEQUENCE  CALL  SPACE(LINES) 

ARGUMENT  LINES  I NUMBER  OF  LINES  THAT  WILL  BE  WRITTEN  IN 

THE  NEXT  OUTPUT  STATEMENT 

SUBROUTINES  SUPPORTED*  INPUTZ  PRINT  VECTOR  VMP 

SUBROUTINES  REQUIRED*  .'4EWPGE 

COMMON  COMPUTED/USEO * LINCT 

COMMON  USEOt  LINPGE 


A 
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SUBROUTINE  STAPRL 

PURPOSE I TO  COMPUTE  THE  PARTIAL  DERIVATIVES  OF  STATION  LOCATION 
ERRORS. 

CALLING  SEQUENCE I CALL  ST APRL <AL, ALON.AL AT.PAT2  ,VEC, PA) 


ARGUMENT  1 AL 

I 

ALTITUOE  OF  THE  STATION 

ALAT 

I 

LATITUDE  OF  THE  STATION 

ALON 

I 

LONGITUDE  OF  THE  STATION 

PA 

0 

PARTIAL  OF  STATION  POSITION  AND  VELOCITY 
WITH  RESPECT  TO  ALTITUDE,  LATITUDE  AND 
LONGITUDE 

PAT2 

I 

LONGITUDE  ♦ ONEGA* (CURRENT  TIME-LAUNCH 
TIME) 

VEC 

UNUSED 

SUBROUTINES  S IPPORTEDl 

TRANS  TRANM 

LOCAL  SYMBOLS  1 G1 

SINE  OF  LATITUDE 

62 

COSINE  OF  LATITUDE 

G3 

1 

SINE (PHI  ♦OMEGA(T-UNIVT) ) 

GN 

COSINEtPHI  ♦OMEGA ( T-UNIVT) > 
WHERE  PHI  sLONGITUDE 

OHEGA=EARTH  ROTATION  RATE 
T =TIHE 

UNIVT-UNIVERSAL  TIME 


65 

SINE  OF  OBLIQUITY  OF  EARTH 

G6 

COSINE  OF  OBLIQUITY  OF  EARTH 

OMEG 

OMEGA  IN  PROPER  UNITS 

\ 

COMMON  USED! 

.3  OMEGA  TM 
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► 


F 


TK®  ecliptic  components  of  the  position  end  velocity  of  a tracking  station 
relative  to  the  Earth  are  related  to  station  location  parameters  R,  0,  and 
4>  through  the  following  set  of  equations: 

X#  ■ R cos  0 cos  G 

Y#  - R cos  0 cos  < sin  G + R sin  0 sin  € 

Za  ■>  -R  cos  0 sin  € sin  G - R sin  0 coed 

X - -UR  coa  0 sin  G 

s 

Y ■ Li  R cos  0 cos  € coa  G 
8 

£ ” - Lit.  cos  0 sin  € cos  G 

3 

where  G ■ 4>  + Li  (t  - T)  , and  T is  the  universal  time  at  some  epoch  (usually 
launch  time) . 

Subroutine  SIAPRL  computes  the  negative  of  the  partlals  of  the  previous 
quantities  with  respect  to  the  station  location  parameters  R,  0,  and  0 . 

These  partlals  are  suanarlxed  below: 

» - cos  0 cos  G 


“ R sin  0 cos  G 


- R cos  0 sin  G 


sin  € sin  0 + cos  f cos  0 sin  <fj 


~ R cos  £ sin  0 sin  C - R sin  £ cos  0 


• — R cos  £ cos  6 cos  G 


• sin  £ cos  0 sin  G - cos  £ sin  0 


- Hi 

dR 

- Hi 
*0 

dX 


d <t> 

Hi 

dR 

0Y 

a 

60 

*Y. 

-dT 

dZ 

& 

dR 


> 


r 


■a 

i 

3m- 

¥ 

? 


307 


‘Vf-v-  " 


1 


X 


\ 


STAPRlr-2 


a 


- Bln  < BlO  0 Bin  G + l COB  € COB  o} 


X Bln  ( COB  0 COB  C 


00 


“ U cos  0 Bln  G 


**  - Wl  Bln  0 Bln  6 


dX 

B 

»*B 

ax 

ar 

1 

a e 


ai 

B 

60 


ut  COB  0 COB  G 


- wcoa  0 coa  < coa  G 


ui  COB  f Bin  0 coa  G 


ul  cos  c cos  0 sin  G 


b>Bln  € cos  0 cos  G 


-wl  Bln  c sin  0 cob  G 


- cjX  sin  c cos  0 sin  G 


508 


srr*-A 


SUBROUTINE  STHPR 

PURPOSE*  TO  PRINT  OUT  THE  TRANSPOSES  OF  THE  STATE  TRANSITION 

MATRIX  PARTITIONS  PHI,  TXXS,  AND  TXU  OVER  AN  ARBITRAR 
INTERVAL  OF  TIHE. 


CALLING  SEQUENCE*  CALL  STHPR(TRTH1,TRTH2> 

ARGUMENT!  TRTH1  I TIHE  AT  BEGINNING  OF  INTERVAL  OVER  WHIGH 

STATE  TRANSITION  MATRIX  PARTITIONS  HAVE 
BEEN  COMPUTED 


TRTH2  I TIHE  AT  END  OF  INTERVAL  OVER  WHICH  STATE 
TRANSITION  MATRIX  PARTITIONS  HAVE  BEEN 
COMPUTED 


SUBROUTINES  SUPPORTED l 

PRINT 4 
PRINTS 

SETEVS 

SETEVN 

6UISIM 

GUIDM 

GUISS 

GUID 

PRESIH 

PREO 

COMMON  USED! 

N0IM1 
XL  AB 

N0IM2 

XSL 

PHI 

XU 

TXU 

TXXS 
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SUBROUTINE  SUB1 

PURPOSE*  TO  COMPUTE  POSITION  ANO  VELOCITY  MAGNITUDES* 

CALLING  SEQUENCE*  CALL  SUB1 (X,XE » XP > 

ARGUMENT*  X I INERTIAL  POSITION/VELOCITY  OF  THE  VEHICLE 

XE  I EARTH-S  POSIT ION/ VELOCITY 

XP  I POSITICN/VELOCITY  OF  THE  TARGET  PLANET 

SUBROUTINES  SUPPORTEOl  PRINT 4 


LOCAL  SYMBOLS*  RX 

RY 

RZ 

VX 

VY 


MAGNITUDE  OF  INERTIAL  POSITION  VECTOR 

MAGNITUDE  OF  GEOCENTRIC  POSITION  VECTOR 

MAGNITUDE  OF  PLANETOCENTRIC  POSITION 
VECTOR 

MAGNITUDE  OF  INERTIAL  VELOCITY  VECTOR 
MAGNITUDE  OF  GEOCENTRIC  VELOCITY  VECTOR 


VZ  MAGNITUDE  OF  PLANETOCENTRIC  VELOCITY 

VECTOR 

Y GEOCENTRIC  POSITION/VELOCITY  OF  THE 

VEHICLE 


Z PLANETOCENTRIC  POSITION/VELOCITY  OF  THE 

VEHICLE 
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SUBROUTINE  TARGET 

PURPOSES  TO  PERFORM  EXECUTIVE  FUNCTIONS  OF  THE  TARGETING  MODE  AS 
CALLING  REQUIREO  SUBROUTINES  TO  READ  THE  INPUT  DATA, 
COMPUTING  THE  ZERO  ITERATE  IF  NECESSARY  AND  PERFORMING 
THE  ACTUAL  TARGETING  THROUGH  THE  PROGRESSIVE  STAGES 
USEO  BY  STEAP. 

CALLING  SEQUENCES  CALL  TARGET 
SUBROUTINES  SUPPORTED!  GIOANS 

SUBROUTINES  REQUIRED*  TAROPT  T ARM AX  DESENT  PECEQ  VHP 

LOCAL  SYMBOLS!  ABV  INTERMEDIATE  VARIABLE  USED  TO  LIMIT  EACH 

QELTAV  COMPONENT  CHANGE 

ACC  VECTOR  OF  ACCURACY  LEVELS  FOR  THE  CURRENT 
TARGETING  EVENT 

ACK  ACTUAL  ACCURACY  USED  BY  SUBROUTINE  VMP 

AER  ABSOLUTE  VALUES  OF  DIFFERENCES  BETWEEN 

DESIRED  ANO  NOMINAL  END  CONDITIONS 

CERROR  CURRENT  SUM  OF  NEI6HTED  DIFFERENCES  OF 
OESIREO  AUXILIARY  AND  NOMINAL  AUXILIARY 
END  CONDITIONS 

DEV  DIFFERENCES  (ERRORS)  BETWEEN  AUXILIARY  END 

CONDITIONS  (DESIRED  AND  NOMINAL) 

ISP2  INDICATOR  USEO  BY  SUBROUTINE  VMP 

*1  STOP  AT  SPHERE- OF- INFLpE NCE 
»0  DO  MO  STOP  AT  SPHERE- OF- INFLUENCE 

ITBAO  BAD  STEP  COUNTER 

ITER  ITERATION  COUNTER 

ITOL  CONVERGENCE  INDICATOR 

*i  CASE  CONVERGED 
*0  CASE  DID  NOT  CONVERGE 

IT  INDICATOR  USEO  TO  LOCATE  DESIRED  TIME 

VALUE  FOR  OUTER  TARGETING 

I INDEX 

J INDEX 

LOWHI  INDICATOR  USED  TO  CALCULATE  Th€  PHASE  2 


target- b 


TARGETING  MATRIX 

NOMORE  INDICATOR  USED  TO  LIMIT  OUTER  TARGETING 

*0  OUTER  TARGETING  HAS  NOT  BEEN  PERFORMED 
*1  OUTER  TARGETING  MAS  ALREADY  BEEN 
PERFORMEO 

OSPH  ORIGINAL  SPHER  OF  INFLUENCE  OF  THE  TARGET 
PLANET 

PERROR  PREVIOUS  VALUE  OF  CERROR 

REOUC  INTERMEDIATE  VARIABLE  USED  IN  BAD  STEP 
REDUCTION 

RIS  LOCAL  VECTOR  USED  TO  SAVE  ANO  RESTORE  THE 
RIN  VECTOR 

RR  INTERMEDIATE  VARIABLE  FOR  OUTER  TARGETING 

RSF  FINAL  SPACECRAFT  STATE  RETURNED  BY  VHP 

SSOI  INTERMEDIATE  VARIABLE  FOR  OUTER  TARGETING 

STOL  INTERMEDIATE  VARIABLE  FOR  OUTER  TARGETING 

TMDF  INTERMEDIATE  VARIABLE  FOR  OUTER  TARGETING 

TVH  PHASE  1 TARGETEO  VELOCITY  AT  HIGHEST 

ACCURACY 

TVL  PHASE  1 TARGETED  VELOCITY  AT  LOSEST 

ACCURACY 

VV  INTERMEDIATE  VARIABLE  FOR  OUTER  TARGETING 


XTIME  CURRENT  DT  TIME  USEO  TO  CALCULATE  EOECP 
FOR  TARGET  PLANET 


COMMON 

COMPUTE O/USED I 

CTOL 

0 AUX 

OELTAV 

OTAR 

IBAD 

I8AST 

IPHASE 

ISPH 

ISTART 

ISTOP 

IT  ARM 

KEYTAR 

LEVELS 

LEV 

MATX 

. 

HAX8A0 

NITS 

NOPAR 

NOPHAS 

NOSOX 

PHI 

RIN 

SPHERE 

COMMON 

COMPUTED 1 

OELTP 

DELV 

XCL2 

ICL 

INCMT 

INPR 

I PRINT 

XAXTAR 

KNIT 

RRF 

TARGET- C 


COMMON  OS CO I AAUX 

DELTAT 

FAC 

MAT 

ONE 

TOL 


AC 

ALNGTH 

A TAR 

oc 

OT 

OVMAX 

01 

EOECP 

IBAOS 

XT  AR 

KUR 

LVLS 

MAXB 

noTt 

NPAR 

NTP 

RC 

SPHFAC 

TAR 

TM 

TRTM 

TWO 

ZERO 
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TARGET  Analysis 


TARGET  la  responsible  for  Che  conCrol  of  any  targeting  (nonlinear  guidance) 
event.  The  targeting  is  done  either  by  the  New ton- Raphe on  technique  or  by 
a steepest  descent-conjugate  gradient  algorithm,  the  method  being  specified 
by  the  user.  In  either  case  numerical  differencing  is  used  to  compute  the 
required  sensitivities. 

I.  Preliminaries 

The  current  inertial  state  of  the  spacecraft  upon  entering  TARGET  is 
first  saved  (RIS-R1N)  along  with  the  original  SOI  radius  (OSPH-SPHERE)  slice 
both  variables  may  be  changed  during  the  course  of  the  targeting.  Before 
exiting  from  TARGET  these  values  are  restored. 

The  index  of  the  current  event  KUR  has  been  computed  by  TRJTRY.  This 
enables  the  specific  targeting  parameters  for  the  current  event  to  be  set: 


Parameter 

METHOD 

MATE 

IBAST 

LEVELS 

NOPAR 

ACC 


Definition 

Triggers  Newton  Raphson  (**0)  or  Steepest  Descent  (j*0) 
technique 

Determines  whether  Newton- Raphson  matrix  is  computed 
always  («*2  ) or  only  at  low  level  (*1) 

Determines  whether  bad  step  checks  are  made  never  ("l  ), 
high  level  only  (-2  ) or  always  ( “3  ) 

Number  of  integration  accuracy  levels  to  be  used 
Number  of  target  parameters  to  be  used 
Actual  accuracy  levels  used  in  targeting 


The  following  flags  are  then  initialized  to  zero 


ITDS 

LCWHI 

N CHORE 


Definition 

Counter  for  steepest  descent  Iterations 
Flag  indicating  whether  first  phase  complete  (mi)  or 
not  (»0) 

Flag  indicating  whether  outer  targeting  has  been  done 
(■1)  or  not  (-0) 


The  target  time  is  computed  and  using  that  time  the  transformation  matrix 
^ECEQ  *rtXk  to  target  planet  equatorial  coordinates  is  calculated 

(PECEQ). 


II.  Phase  Preparations 

TARGET  performs  the  targeting  in  one  phase  unless  targeting  to  TCA  (time 
of  closest  approach).  In  that  case  the  trajectory  is  targeted  in  two  phaees: 
the  first  phase  targets  to  the  target  planet  SOI  (sphere  of  influence),  the 
second  phase  to  the  closest  approach  conditions.  IPHASE  is  the  phase  counter, 
NOPHAS  is  the  number  of  phases  needed. 


514 


TARGET- 2 


I 


* 


If  all 
If  the  last 
to  a 1.  If 
sat  to  1 to 


the  phases  have  been  completed,  the  program  prepares  to  exit, 
iterate  satisfied  the  target  tolerances  ITOL  will  have  been  set 
it  did  not,  ITOL  will  be  tero  and  this  requires  that  EMIT  be 
terminate  the  program  upon  return  to  the  basic  cycle. 


If  the  last  phase  has  not  yet  been  completed  TAROPT  is  now  called 
with  an  argument  1 to  compute  the  following  phase  parameters: 


Parameter 


Definition 


KEYTAR(3) 
KAXTAR(3) 
DTAR(3) 
DAUX(3) 
FAC (3) 

IS  TOP 


Vector  of  codes  of  target  parameters 
Vector  of  codes  of  auxiliary  parameters 
Vector  of  desired  values  of  target  parameters 
Vector  of  desired  values  of  auxiliary  parameters 
Weighting  factors  for  loss  function  for  auxiliary 
parameters 

Flag  indicating  integration  stopping  conditions  with 
ISTOP  ■ 1,2,3  indicating  fixed  final  time,  SOI,  or 
CA  encounter 


The  target  parameters  are  the  parameters  actually  desired;  the  auxiliary 
parameters  are  the  parameters  used  to  do  the  targeting.  The  target  and 
auxiliary  parameters  are  identical  except  when  i and  r^  are  targets. 

In  that  case  the  corresponding  auxiliary  parameters  are  B-T  and  B-R  which 
are  much  more  linear  variables.  The  codes  of  the  target  and  auxiliary  par- 
ameters are  as  follows: 

Code  1 2 3 A 5 6 I 8 9 10  11  12 

Parameter  TRF*  TSI  TCS  TCA  BDT  BDR  RCA  INC  SKA  XRF  YRF  ZRF 

* not  currently  available 

III.  I«vel  Preparations 

Within  any  phase  TARGET  operates  through  a series  of  integration 
accuracy  levels  prescribed  by  the  user.  After  completing  each  level  TARGET 
checks  to  Bee  if  the  maximum  number  of  levels  LEVELS  has  been  exceeded.  If 
it  has  the  program  cycles  to  the  beginning  of  the  "phase  loop"  to  go  to  the 
next  phase.  If  the  current  level  LEV  is  less  than  LEVELS  the  following 
computations  are  made. 

The  flag  ITAIOt  controls  whether  the  previous  targeting  matrix  is  to  be 
used  (»1)  or  whether  the  matrix  is  to  be  recomputed  (-2)  during  the  current 
level.  ITAEM  is  set  according  to  the  current  values  of  KATE,  ISTARI,  and 
LEV. 


The  flag  IBAD  controls  the  bad  step  logic.  If  IBAD**1  no  bad  step  check 
will  be  made  during  the  current  level;  if  IBA>»2  the  bad  step  check  will  be 
in  effect.  TARGET  sets  IBAD  according  to  the  values  of  IBAST  and  LEV, 

The  flags  ITOL,  ITER,  ITBAD  are  set  to  0 to  begin  the  iterations.  The 
allcwable  iterations  NITS  and  bad  iterations  HAXBAD  are  also  see  at  this  time. 
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IV.  Iterate  Calculations 

Within  each  level  the  program  make*  one  or  more  iterations.  After 
each  Iteration  the  program  updates  the  Iteration  counter  ITER.  If  the 
maximum  number  of  iterations  for  this  level  NITS  has  been  exceeded,  the 
program  sets  EMIT  to  1 and  prepares  for  the  return  from  TARGET.  Otherwise 
TARGET  computes  the  target  and  auxiliary  values  corresponding  to  the 
current  iterate  values  of  state  (position  and  velocity)  RIN. 

The  integration  parameters  are  first  set.  VMP  is  then  called  to  prop- 
agate the  initial  state  to  the  final  stopping  conditions.  Checks  are  made 
to  Insure  that  the  target  planet  SOI  was  intersected  if  the  stopping  con- 
ditions were  SOI  or  CA.  If  it  was  not  intersected  and  this  is  the  first 
iteration,  the  "outer  targeting"  phase  is  entered  (see  below).  If  "outer 
targeting"  has  already  been  performed,  the  bad-step  check  is  entered  to 
reduce  the  previous  correction  by  REDUC. 

Otherwise  TAROPT  is  called  with  the  argument  2 to  compute  the  desired 
and  actual  target  (DTAR,  ATAR)  and  auxiliary  (DAUX,  AAUX)  parameter  values. 
The  absolute  error  in  target  values  AER  and  the  error  in  auxiliary  values 
DEV  are  then  computed. 

If  the  current  iterate  Is  the  first  integration  at  the  low  level 
during  the  second  phase  of  targeting  (LCWHI-1)  IAKMAX  is  now  called  to 
compute  the  phase  2 targeting  matrix.  Then  the  state  RIN  i6  reset  to  the 
targeted  velocity  at  the  high  level  TVH  to  prepare  for  the  recond  phase 
targeting.  The  program  then  returns  to  the  level  ’loop. 

Otherwise  the  program  now  checks  the  actual  target  variables  to  deter- 
mine whether  they  satisfy  the  input  tolerances  or  not. 

V.  Tolerances  Satisfied 

If  the  tolerances  are  satisfied,  the  program  first  checks  to  see  if  the 
current  targeting  phase  is  outer  targeting.  If  it  is  TARGET  restores  the 
original  target  parameters  and  initiates  the  normal  targeting  (see  Outer 
Targeting  below). 

If  the  current  targeting  is  already  normal  targeting,  TARGET  sets 
IT0I^*1  to  indicate  the  satisfaction  of  the  tolerances.  If  the  problem  is 
a 2-phase  and  the  current  level  is  the  highest  level* in  phase  1 targeting, 
the  targeted  high  level  velocity  TVH-RIN  is  saved,  LOWHI  is  set  to  1 and 
the  targeted  lew  level  velocity  1b  recalled  RIN-TVL  for  the  construct  of 
the  phase  2 targeting  matrix.  Then  the  level  loop  is  reentered. 

VI.  Sad  Step  Reduction 

If  the  target  parameter  values  of  any  iterate  are  not  within  the 
acceptable  tolerances  TARGET  now  assigns  a scalar  error  € to  the  Iterate 
using  the  weighting  factors  V 


TARGET- 4 


If  the  bad-step  check  1b  to  be  made  on  this  Iterate  the  current  error  t 
is  compared  to  the  previous  error  £ . If  t > * and  the  maximum 

P P /*-» 
number  of  bad  steps  has  not  been  exceeded,  the  previous  correction  iJv 

is  reduced  by  REDUC  (usually  1/4).  The  initial  state  &IK  is  adjusted  by 

this  and  the  Iterate  loop  is  reentered.  If  the  maximum  number  of  bad 

steps  has  b«en  made,  KWIT  is  set  to  1 and  the  preparations  for  return  are 

made. 


VII.  Generation  of  Next  Iterate 

The  correction  &v  to  any  iterate  may  be  computed  from  either  of 
two  techniques  selected  by  the  flag  METHOD.  If  METHOD  f 0,  subroutine 
DESCENT  is  called  for  the  computation  of  the  by  a steepest  descent 

algorithm.  The  numerical  value  of  METHOD  determines  the  number  n of 
conjugate  gradient  steps  between  each  straight  gradient  step  where  n » 
METHOD- 1.  Thus  if  METHOD*!,  every  step  is  in  the  direction  of  the  gradient. 
But  if  METH0>*5,  four  steps  are  taken  following  the  conjugate  gradient 
direction  before  rectification  by  the  gradient  direction. 

If  METH03X),  the  Newton- Raphson  correction  is  used.  If  ITASM*Q,  TAKMAX 
1 8 called  for  the  computation  of  the  targeting  matrix  0 by  numerical 
differencing.  If  any  of  the  integrations  made  in  constructing  that  matrix 
sAtisfy  the  tolerances  in  T . the  flag  IEND  is  set  to  1 before  returning 
to  TARGET.  Thus  a check  must  be  made  on  IEND.  If  ITARM-1  the  previous 
targeting  matrix  is  used.  The  correction  is  then  given  by 

A v * 0 • Act 

where  A Ot  are  the  deviations  in  the  iterate  auxiliary  values.  The 
j. a checked  to  Insure  that  the  maximum  step  size  DVMAX  i j not  violated:  if 
it  is,  the  Av  is  reduced  proportionately  to  satisfy  it.  The  next  iterate 
is  then  set  to 


( "r,  V ) - ( r*,  v*  + fiy  ) ' 

and  the  return  made  to  the  Iterate  loop. 

VIII.  Outer  Targeting 

Occasionally  the  zero  iterate  initial  state  leads  to  a trajectory 
missing  the  target  body  SOI.  Since  all  target  options  except  one  (targeting 
to  a specified  position,  i.e.,  KTAR  ■ 10,11,12)  require  the  trajectory  to 
Intersect  the  target  body  SOI  steps  must  be  taken  to  correct  this. 

Let  the  Initial  stata  propagated  forward  lead  to  a trajectory  with  a 

closest  approach  to  the  target  body  of  r with  r > r where  r 

CA  CA  < SI  SI 

is  the  radius  of  the  SOI. 


V 


Until  the  initial  trajectory  intersects  the  SOI  the  usual  targeting  can 
not  be  done.  Therefore  an  "artificial"  SOI  is  introduced  having  a radius 
of 


ASI 


1.2  x r 


CA 


The  initial  trajectory  obviously  intersects  the  artificial  SOI  and  hence 
may  be  targeted  to  conditions  on  the  ASOI.  If  the  target  conditions  are 

established  as  B*T  - B*R  ■ 0,  when  this  artificial  targeting  is  completed, 

A A 

the  refined  trajectory  will  be  headed  straight  for  the  target  body  when  it 
hits  the  ASOI.  Thus  the  refined  trajectory  should  automatically  hit  the 
normal  SOI  when  propagated  past  the  ASOI.  To  insure  that  the  time  of 
intersection  with  the  normal  SOI  is  consistent  with  the  target  tine,  an 
artificial  target  time  is  also  used.  Let  the  speed  of  the  spacecraft  with 

respect  to  the  target  body  at  r be  v . Make  the  approximation  that 

CA  CA 

this  speed  will  be  roughly  the  same  for  the  refined  trajectory.  Then  the 
time  that  the  spacecraft  should  intersect  the  ASOI  is 


% 


t «■  t 
ASI  CA 


ASI 

'CA 


or 


t » t 
ASI  SI 


rASI  " rSI 
VCA 


where  the  first  formula  should  be  used  if  the  target  time  is  t or  t 


and  the  second  formula  is  used  for  t 


SI* 


CA 


cs 


Thus  when  a trajectory  is  found  which  misses  the  normal  SOI,  the  closest 
approach  state  r , is  recorded.  The  normal  SOI  radius  is  stored  and 

the  artificial  SOI  radius  given  above  is  used  in  its  place.  Target  parameters 
of  B*T^,  B*Ra,  and  t^j  are  then  set  up  as  the  targets.  When  targeting 

of  this  artificial  problem  is  complete,  the  resulting  trajectory  will  inter- 
sect the  normal  SCI  and  the  original  problem  may  be  solved. 
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TE  CALCULATIONS 


ITER  - ITER  + 1 


ITER: NITS 


Set  integration  parameters:  INTR,  DELTP, 

I PRINT,  ISFK,  ICL,  ISP2 , ICL2 , ACE , INCMT 


Call  VHP  to  propagate  current  iterate  RS 


2,3/. 

ISTOP>-?  > — ><  ISPH-? 


Call  TAR0PT(2)  to  compute  desired  and 
actual  target  (OTAR, A TAR)  and  auxiliary 
(QAUXjAAUX)  parameters  and  differences 
AER(i)  - [DTAR(i)  - ATAR(i) [ 

DEV (i)  - DA’JX(i)  - AACX(i) 


Enter  "Outer  Targeting" 

Set  NOSOI  - 1 

Store  original  parameters  SOI,  TOL 
Set  up  artificial  parameters  KEYTar, 
KAXTAR,  DTAR,  HAUX,  CTOL,  1ST0P, 
ITABi,  I BAD,  NITS,  DVKAX,  PERV 


1AI£ET>  8 


LOWKZ-T 


Call  TAJRHAX  for  computation  of 
low  l«v«l  phot*  2 targeting  matrix 


Are  all  errors  tolerable?~'S\  S 
AKR(l)  < CTOL(l) 


Set  parameters  for  "Phase  2 Targeting* 
RIK-TVH,  ITABX-I , ISTAR3>2, 
LEV-LEVELS- 1,  IXWHI-0 


iuLLRaXCES 


SATISFIED 


NOS  01-  ? 


ITOW 


N0PHAS-? 


I START-? 


Exit  from  "Outer  Targeting" 

Set  NOSOI  - 0 
Restore  CTOL,  SPHERE 
Set  parameters  for  return  to  inner 
targeting:  LEV,  MX  ORE,  FEXV,  DVKAX 


TVL  - Rd 


LEV:  LEV  ELS 


TVH-RIN,  R1N-TVL 
L0WHI-1,  ISTART-0 


TABLET- 9 


BAP- STEP 
REDACTION 


yi 


< 


CERROR : PERROR 


NEXT  ITERATE 


PERROR-CERROR 

FACRS-l/REDUC 


f 


JL 

Bad-Step  Reduction 
ITBAD^ITBAPfl 
FACBS=FACBS • REBUC 


-1 


to 


Call  TABMAX  for  computation 
of  targeting  matrix  PHI  for 
Newton -Raphe on  procedure. 


1 

i 

, ( 

DELTAV-DELIAV /REDUC 
RIN-RIN  + DELTAV 

mm  ■■  ■ 

Call  DESENT  lor  computation 
of  DELTAV  by  steepest  descent  or 
conjugate  gradient  technique. 


-0 


DELTAV  - PHI  * DEV 


Insure  that  each  component 
of  DELTAV  6c  DVKAX 
RIH  ■ RIN  + DELTAV 


X 

i 

i 

j 


■s 


I 


5 
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"URN 


TA2MAX-A 


SUBROUTINE  T ARM AX 

PURPOSE*  TO  CALCULATE  A TARGET  MATRIX  FROM  NOMINAL  INJECTION 

CONDITIONS,  AND  A PERTURBATION  FACTOR  BOELV  FOR  A GIVEN 
ACCURACY  LEVEL. 


CALLING  SEQUENCE*  CALL  TARMAX 


SUBROUTINES  SUPPORTED 
SUBROUTINES  REQUIRED I 
LOCAL  SYMBOLS t ACK 

AER 

AUXN 

CHI 

□VEE 

ISP2 

I 

J 

ROMP 


I TARGET 

MATIN  TAROPT  VMP 

ACCURACY  USED  TO  GENERATE  THE  TARGET 
MATRIX 

DIFFERENCES  BETWEEN  DESIRED  AND  ACTUAL  END 
CONDITIONS 

NOMINAL  AUXILIARY  END  CONDITIONS 

STATE  TRANSITION  MATRIX  RELATING 
PERTURBATIONS  IN  THE  RIN  VECTOR  TO  CHANGES 
IN  AUXN 

VECTOR  OF  VELOCITY  COMPONENT  PERTURBATIONS 

INDICATOR  USED  BY  SUBROUTINE  VMP 

*0  DO  NOT  STOP  AT  SHPERE  OF  INFLUENCE 
»1  STOP  AT  SPHERE  OF  INFLUENCE 

INOEX 

INDEX 

INOEX 


PSI 

TAR6ET 

MATRIX 

FOR  2X2 

EASE,  STORED  INTO 

PHI 

RSF 

FINAL 

SPACECRAFT  STATE 

RETURNED 

BY  VMP 

COMMON 

COMPUTE O/USED* 

ISPH 

PHI 

RIN 

TRTM 

COMMON 

COMPUTED* 

*CL2 

I CL 

INCH! 

COMMON 

USED! 

AAUX 

AC 

ATAR 

CTQL 

OAUX 

OELTAT 

DELTAV 

DTAR 

01 

ISTOP 

KUR 

LEV 

LVLS 

NOPAR 

PERV 

ZERO 


I 


V 


k 


[ 


IABKAX-  i 


TABHAX  Analysis 


f 

& 

V 

a. 


i' 

l'r 

r." 

« 


TAKKAX  computes  the  targeting  matrix  used  by  TARGET  for  Newton- Eaphson 
refinements,  the  targeting  matrix  is  computed  by  numerical  differencing. 

Let  the  current  iterate  initial  state  be  denoted  r,  v . Let  the  auxiliary 
parameters  corresponding  to  this  state  be  a* . Let  the  perturbation  size 
for  the  sensitivities  be  /\v. 

The  k-th  column  of  the  sensitivity  matrix  is  computed  as  follows.  Perturb 
die  k-th  component  of  velocity  by  Av: 

v - v + Av 
P 

Propagate  the  perturbed  initial  state  ( v*  ) to  the  final  stopping 

P 

conditions.  Let  the  auxiliary  parameters  of  that  trajectory  be  denoted  c*. 

i 

The  k-th  column  ©f  the  sensitivity  matrix  x is  then  given  by 


IK 


<1) 


(2) 


Having  computed  all  the  columns  of  x , the  targeting  matrix  is  then  given 
by  the  inverse  of  x : 

* « x'1  ‘ (3) 

The  targeting  matrix  then  has  the  property  that  to  obtain  a change  A«  in 
the  nominal  auxiliary  parameters,  the  velocity  should  be  changed  by  the 
amount 

Av  - *•  A*  (4) 


$ 

j 

? 

i 

l 

i 

! 

i 

I 
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SUBROUTINE  TAROPT 

PURPOSE!  TO  COMPUTE  THE  DESIRED  ANO  ACHIEVEO  TARGET  PARAMETER 
VALUES  TOR  ALL  THE  TARGETING  SUBROUTINES* 

CALLING  SEQUENCE!  CALL  TARO»T ( IT ARO > 

ARGUMENT!  IT  ARO  I OPTION  FLAG 

=1  SET  UP  TARGETING  PARAMETERS  FOR  TARGET 
KEYS 

*2  COMPUTE  ACTUAL  VALUES  OF  PARAMETERS 
=3  COMPUTE  ACTUAL  ANO  DESIRED  VALUES  OF 
PARAMETERS 

SUBROUTINES  SUPPORTED!  TARGET  TARMAX  DESENT 

SUBROUTINES  REQUIRED!  CAREL  CPNMS  IMPACT 

LOCAL  SYMBOLS!  ACK  CURRENT  ACCURACY  BEING  USED 

A SEMI-MAJOR  AXIS  OF  THE  TARGET 

PLANETOCENTRIC  CONIC 

CPT  TOTAL  COMPUTER  TIME  USEO  <SECS> 


DBOR 

OBDT 

DINC 

DRCA 

E 

I AUX 

I INC 

IRCA 

I 

KEY 

PP 

QQ 


OESIREO  VALUE  OF  8 DOT  R ; 
DESRIEO  VALUE  OF  B DOT  T \ 
OESIREO  VALUE  OF  INCLINATION  1 


QESIREO  VALUE  OF  RCA 


ECCENTRICITY  OF  THt  TARGET  PLANETOCENTRIC 
CONIC 

INDICATOR  FOR  AUXILIARY  END  CONDITIONS 
*0  TARGET  TO  ACTUAL  ENO  CONDITIOKS 
*1  TARGET  TO  AUXILIARY  END  CONDITIONS 

LOCATES  DESIRED  INCLINATION  IN  THE  DTAR 
ARRAY 

LOCATES  DESIRED  RCA  IN  THE  OTAR  ARRaY 
INOEX 

LOCAL  VARIABLE  USED  TO  COMPLETE 
INFORMATION  IN  THE  KAXTAR  AND  KEYTAF  ARRAY 

DUMMY  VARIABLE  FOR  CALL  TO  CAREl 

DUMMY  VARIABLE  FOR  CALL  TC  CAREL 


TAROPT-B 


' fltVhilba  - \ v. 


* i 


RM  MAGNITUDE  OF  SPACECRAFT  USED  TO  COMPUTE 

SEMI-MAJOR  AXIS 

TA  DUMMY  ARGUMENT  FOR  CALL  TO  CAREL 

TDBR  OUMMY  ARGUE  ME NT  FOR  CALL  TO  IMPACT 

TBOT  DUMMY  ARGUEMENT  FOR  CALL  TO  IMPACT 

TFP  TIME  OF  FLIGHT  FROM  PERIAPSIS  OH  THE 

TARGET  PLANETOCENTRIC  CONIC 

TING  INTERMEDIATE  VARIABLE  TO  COMPUTE  CPT 

TSICA  OUMMY  VARIABLE  FOR  CALL  TO  IMPACT 


VX  INTERMEDIATE  VARIABLE  USED  TO  CALCULATE 

SEMI-MAJOR  AXIS  FOR  OPTION  9 


MM 

OUMMY 

VARIABLE 

FOR  CALL 

TO  CAREL 

M 

DUMMY 

VARIABLE 

FOR  CALL 

TO  CAREL 

XI 

DUMMY 

VARIABLE 

FOR  CALL 

TO  CAREL 

XN 

OUMMY 

VARIABLE 

FOR  CALL 

TO  CAREL 

COMMON 

COMPUT  ED/USEO 1 

AAUX 

ATAR 

DAUX 

OELTAT 

DTAR 

ISTOP 

RCA 

KAXTJR 

» 

KEYTAR 

NOPAR 

NOPHAS 

COMMON 

COMPUTED! 

CTOL 

FAC 

COMMON 

USED! 

AC 

BOR 

BDT 

CAINC 

DC 

OG 

DSI 

DT 

EQECP 

IBAD 

ICL2 

INCHT 

IPHASE 

KTAR 

KUR 

LEV 

NOSOI 

NPAR 

ONE 

RC 

RIN 

RRF 

RSI 

TAR 

TIMS 

TMU 

TM 

TOL 

TMO 

V SI 

TAROPT- 1 


TARPPT  la  responsible  for  computing  the  desired  and  achieved  target 
parameter  values  for  all  the  targeting  subroutines.  Thus  to  add  any 
new  target  parameters  TAR0PT  is  the  only  subroutine  that  must  be  modified. 

The  key  variables  used  by  TAB0PT  and  their  definitions  are 

Variable  Definition 

KTAR(6 , 10)  Codes  of  target  parameters  of  all  targeting  events 

TAR(6,10)  Desired  values  of  target  parameters  of  all  targeting 

events 

KEYTAR (3)  Codes  of  target  parameters  of  current  event 

DTAR(3)  Desired  values  of  target  parameters  of  current  event 

ATAR(3)  Actual  values  of  target  parameters  of  current  iterate 

XAXTAR(3)  Codes  of  auxiliary  parameters  of  current  iterate 

DAUX(3)  Desired  values  of  auxiliary  parameters  on  current  iterate 

AAUX(3)  Actual  values  of  auxiliary  parameters  of  current  iterate 

The  available  target  parameter.*  and  their  codes  and  definitions  are 


Code 

Parameter 

Definition 

1 

Available  for  use 

2 

rr 

Time  at  SOI  of  target  body  (n-body  integration  to  SOI) 

3 

Ccs 

Time  at  CA  (n-body  integration  to  SOI,  conic  propagation 
to  CA) 

4 

CCA 

Time  at  CA  (n-body  integration  to  CA) 

5 

B ■ T 

Impact  parameter  B*  T 

6 

B * R 

Impact  parameter  B • R 

7 

i 

Inclination  to  target  planet  equator 

8 

rCA 

Radius  of  closest  approach  to  target  body 

9 

asi 

Semi-major  axis  of  conic  w.r.t  target  body 

10 

Xf 

X-component  of  final  state  (inertial  ecliptic  system) 

11 

yf 

Y-component  of  final  state 

12 

Zf 

Z- component  of  final  state 

The  term  target  parameter  refers  to  a variable  whose  final  value  is  to 
. conform  to  a desired  value.  The  term  auxiliary  parameter  refers  to  a 
variable  which  is  used  to  compute  the  progressive  corrections.  The  target 
parameters  and  auxiliary  parameters  are  identical  unless  the  target  parameters 
i and  r^  are  used.  In  this  case  the  more  linear  variables  B*  T and  B»  R 

are  used  in  their  place  as  auxiliary  parameters.  The  desired  values  of  B»'T 
and  B * R are  then  computed  (by  IMPACT)  based  on  the  desired  values  of  1 and 
r and  the  approach  asymptote. 
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TAROPT  is  called  under  three  different  options  distinguished  by  an  argument 
ITARO.  The  three  different  options  will  be  discussed  in  order. 

TAROPT(l)  is  called  by  TARGET  at  the  beginning  of  each  phase  to  set  up  the 
proper  variables  for  the  targeting.  The  arrays  KEYTAR,  KAXTAR,  DTAR,  and 
DAUX  are  set  to  the  current  evert  values  of  KTAR  and  TAR.  If  is  a 

target  parameter,  the  number  of  phases  NOPHAS  is  set  to  2.  If  the  current 

phase  is  the  first  phase  of  s two-phase  problem,  t is  replaced  by  t 

CA  CS 

in  the  KEYTAR  and  KAXTAR  arrays.  If  i and  r^  are  target  parameters, 

the  corresponding  indices  of  the  KAXTAR  array  are  set  up  for  B * T and  B • R , 
TAROPT  then  sets  up  the  integration  parameters.  The  integration  time  interval 
At  is  set  to  the  nominal  difference  of  the  current  guidance  event  time  and 

target  time: 

At  " t - t 

T G 


Then  if  none  of  the  target  times  are  triggered  ISTOP  is  set  to  1 so  t.'.at 

the  integration  proceeds  to  the  target  time  exactly.  If  the  target  time  is 

t or  t , ISTOP  is  set  to  2 and  £^t  *»  1.1  . Thus  the  integration 

i>  J- 

will  be  stopped  at  the  target  body  SOI.  Finally  if  the  target  time  is 
t^  , ISTOP  1 8 set  to  3 and  At  “ 1.1  At  . For  this  case  the  integration 

will  be  stopped  at  closest  approach  to  the  target  bocy.  Finally  the  weignting 
factors  FAC(3)  to  be  used  in  computing  the  scalar  loss  function  are  set. 

Since  all  auxiliary  parameters  are  units  of  length  except  for  the  time  parameters 
only  the  relative  weight  of  time  to  length  need  be  input.  Thus  the  length 
factors  are  set  to  unity,  the  time  factor  is  set  to  tne  input  parameter  VGHTM. 

TAR0PT(2)  is  called  by  TARGET  after  integrating  each  iterate  to  the  final 
stopping  conditions.  Here  TAROPT  perform  mainly  a bookkeeping  role.  It 
must  fill  the  proper  cells  of  t'  i ATAR,  AAUX,  and  DAUX  arrays  with  values 
generally  computed  by  the  virtual  mass  routines.  The  desired  values  of 
B»  T*  and  B*  R*  are  computed  by  calling  IMPACT  if  needed. 

TAR0PT(3)  is  called  by  TAH1AX  and  DESElsT  after  integrating  each  perturbed 
trajectory  to  compute  the  perturbed  values  of  the  auiiliary  parameters.  Thus 
the  desired  values  of  DAUX  need  not  be  computed  at  this  time.  Once  again, 
this  task  is  simply  a bookkeeping  job  to  store  the  trajectory  data  correctly 
in  the  ATAR  and  AAUX  cells.  TARMAX  and  DESEXT  may  then  operate  easily  on 
these  arrays  to  compute  the  targeting  matrix  or  gradient  directions. 

In  both  calls  TAR0PT(2)  and  TAR0PT(3)  the  trajectory  data  are  printed  out 
before  exiting  from  TaROPT. 
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SUBROUTINE  tarprl 

PURPOSE*  TO  COMPUTE  THE  PARTIAL  DERIVATIVES  OF  THE  POSITION  * 
COMPONENTS  OF  A PLA4ET  WITH  RESPECT  TO  EACH  OF  ITS 
ORBITAL  ELEMENTS. 

CALLING  SEQUENCE*  CALL  T ARPR„(  ICOOE  » PAR) 

ARGUMENT*  ICOOE  I COOE  DEFINING  ORBITAL  ELEMENT  OF  INTEREST 

PAR  0 VECTOR  OF  3 POSITION  PART IALS  MIT H RESPECT 

TO  THE  ORBITAL  ELEMENT  OF  INTEREST 

SUBROUTINES  SUPPORTED*  TRAKS  TRAKM 

LOCAL  SYMBOLS*  CBO  COSI>£  OF  LONGITUDE  OF  ASCENDING  NODE 

Cl  COSItC  OF  ANGLE  OF  INCLINATION 

CLO  COSINi  OF  ARGUMENT  OF  PERIAPSIS 

COSNU  COSINE  OF  TRUE  ANOMALY 

COSONU  COSINE  OF  THE  SUM  OF  THE  ANGLES  OF  TRUE 
ANOMALY  PLUS  THE  ARGUMENT  OF  PERIAPSIS 

ONUDE  PLANET  OISTANCE  TIMES  THE  PARTIAL  OF 

TRUE  ANOMALY  HITH  RESPECT  TD  ECCENTRICITY 

ONUDM  PARTIAL  OF  TRUE  ANOMALY  KITH  RESPECT  TO 
MEAN  ANOMALY 

OPAR  i./R*<*R/*E  ♦ (*R/*NU)*(*NU/*E>> 

WHERE  R=  PLANET  DISTANCE 
NU=TRUE  ANOMALY 
E*  ECCENTRICITY 
*=  PARTIAL  OF 

ORDNU  PARTIAL  R WITH  RESPECT  TO  NU 

E2  . SQUARE  OF  ECCENTRICITY 

IND  INDEX  USED  IN  ARRAY  STORING  ORBITAL 

ELEMENTS  OF  PLANETS 

PCOMP  SEMI-MAJOR  AXIS  TIMES  THE  TERH  ( 1-E*E> 
WHERE  E»ECCENTRICITY 

R PLANET  DISTANCE 

SBQ  SINE  OF  LONGITUDE  OF  THE  ASCENDING  NODE 

SI  SINE  OF  INCLINATION 


■V 


* 

m 
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SZNNU  SINE  OF  TRUE  ANOMALY 

SZNONU  SINE  OF  THE  SUN  OF  THE  ANGLES  OF  TRUE 
ANOMALY  PLUS  THE  ARGUMENT  OF  PERIAPSIS 

SLO  SINE  OF  THE  ARGUMENT  OF  PERIAPSIS 

XXX  SCRATCH  CELL 

COMMON  USEQt  ALNGTH  ELHNT  NTP  ONE  XP 

ZERO 


IARP1L-1 


TA1FRL  Analysis 


Tha  position  components  of  a planet  are  related  to  Its  orbits*  elements 
a,  e,  1,£,W,  and  H througn  the  following  set  of  equations: 


• * 

x * r cos £coa (u  + v)  - sin  Q sin(<^+  *0  cos  1 

: s 

y — r sin£?cos(W  + v ) + cos  Q sin(<w+0  cos  1 


z »■  r s in(o+y)  sin  1 

r “ *Cl  - «2> 

1 + e cos  V 


tan  — “ 


ll  + e 
1 - e 


tan  — 
2 


M *•  E - e sin  E (6) 

We  can  write  equations  (1),  (2),  (3),  and  (4)  f ymholically  as 

- f1^a»  e»  *') 

auc  equations  (5)  and  (6)  as  • 

V - V (e,  M)  . 

Then  tne  paxtials  of  x witn  respect  to  a,  e,  i,  Q,  'ji , and  M can  be 
evaluated  as  follows: 


d*, 

T?  • 

_££i 

da 

/ flft 

de 

la- 

dfi 

3i 

di 

dxt 

da 

dft 

62 
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fees 
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& 


& 


(11) 


iii  . 4^-  • -22- 

dM  dn 


(12) 


Only 


<?p 


and 


ap 


require  further  consideration  before  equations  (7) 


de  dn 

through  (11)  can  be  used  to  obtain  expressions  for  the  18  desired  partial 
derivatives. 

We  obtain  jdP_  by  first  differentiating  equation  (5)  with  respect  to  E 

dM 

and  aquation  (6)  with  respect  to  M to  obtain 


MJL 

a* 


- * vrr 


and 


de 

dM 


_a 

r 


Then 


.&JL.  m Ml-  . Al- 
da dTL  dM 


r 


(13) 


ft  ft 

Ve  obtain  • — by  first  differentiating  equation  (6)  with  respect  to  e 

d e 

to  obtain 


AJL  - 

de 


sin  V 


1 + e cos  V 


This  result  is  then  combined  with  equation  (13)  to  yield 


- 9V  m d V dM  m I a \ (1  - e^)  sin  V 

" 17]  1 + e 


de 


dM  de 


cos  V 


(H) 
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The  evaluation  of  the  deal red  partial®  can  now  proceed.  The  result* 
are  susssarixed  below. 

a.  Partial®  with  respect  to  a. 


X 

H m B 

da 

a 

ay 

- 31 

da 

a 

d z 

_2 

da 

a 

b.  Partials  with  respect  to  e. 


-n 


dx  „ 

*q 

_2n_ 

- cos£sin(n>  + v)  - sinJ2cos(u>-t-  v ) cos 

de 

r 

r • 

de  1 

-1X_  - 
de 

yq 

•f 

t*  . 

[ 

- 8ini26in(w-f  V ) + co6J2co5  (u>+1/)  cob 

r 

A-  ■ 

de  l 

d* 

2<J 

+ 

r , 

cob  sin  i 

de 

r 

de 

where 

r 

£r  - a - ae2(l  + sin2  t»)j 

S “ 

ae  (1 

- e2) 

c.  Partials  with  respect  to  i. 


4 

i 

i 

r 


-£-x—  ■ r 8iafisin(t*>+  p)  sin  i 

di 


±1. 

di 


r cos  Q s in(u>  + V ) sin  i 


1 z 
di 


- r sin(w+V)  cos  i 
d.  Partials  with  respect  to  5 


> x 
di? 
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I] 


t 

i 


i 


h 

£ 

l 

£ 

i 


r 


M- 

6Q 


9z 

’IT 


■ X 


- 0 


*.  Partial*  with  respect  Co  u 


■ “ r £ - cos Q sin (<»>■♦■  J/)  - stn£?cos(cj+ y)  cos  ij 

■ ■ “ r[”  ■+■  cosflcos (u>+  v)  cos  ij 


d z 
du 


— r cos(w+v)  sin  i 


Partial* 

with 

res pec  t to 

h. 

d x _ 

xs 

+ r 

cos jl  t .n(<*>+ X/ ) - sinficos  (w  + y )cos  ij 

dM 

r 

dh 

fly  _ 

_JT8_ 

+ r s,; 

sin£sin(.u  + X ) + coa£2zos(fiJ  + I/)cos  ij 

dK 

r 

AM 

d z _ 

zs 

+ r 

cos(u>  + I/)sin  i 

9H 

r 

dK 

where 

s “ 

ae  sin  V 

Vi . .* 

Reference:  Battin,  E.  H. : 'Astronautical  Guidance,  McGraw-Hill  Book 

Company,  Inc.,  New  York,  1964. 
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* , 1 


TIKE-A 


SUBROUTINE  TIME 

PURPOSE*  TO  COMPUTE  THE  JULIAN  DATE,  EPOCH  1900,  FRQH  THE 

CALENDAR  OATE  OR  TO  COMPUTE  THE  CALENDAR  DATE  FROM  THE 
JULIAN  OATE. 


CALLING  SEQUENCE*  CALL  TlHE<OAY ,IYR»HO,IDAY» IHR, MIN, SEC, I CODE ) 


ARGUMENT*  OAY 
IYR 
MO 

IOAY 

IHR 

MIN 


I/O  JULIAN  OATE,  EPOCH  1900 

O/I  CALENDAR  YEAR 

O/I  CALENDAR  MONTH 

O/I  CALENDAR  DAY 

O/I  HOUR  OF  THE  DAY 

O/I  MINUTE  OF  HOUR 


SEC  O/I  FRACTIONAL  SECONOS 

ICOOE  I OPERATIONAL  MODE 

* 1,  INDICATES  THE  JULIAN  DATE  IS  INPUT, 
CALENDAR  DATE  IS  OUTPUT 
= 0,  INDICATES  THE  CALENDAR  DATE  IS  INPUT, 
JULIAN  OATE  IS  OUTPUT 


SUBROUTINES  SUPPORTED*  DATAS  INPUTZ 

PREPUL  PRNTS4 
GIDANS  HELIO 


PRINT  VHP 
DATA  PRNTS3 
MULTAR 


GIDANS 

PRELIM 


SUBROUTINES  REQUIRED*  NONE 


LOCAL  SYMBOLS*  IA  NUMBER  OF  CENTURIES 


IB  YEARS  IN  PRESENT  CENTURY 


IP  NUMBER  OF  MONTH  ( 8ASED  ON  MARCH  AS  NUMBER 

ZERO) 


IQ  NUMBER  OF  YEARS 

IR  NUMBER  OF  CENTURIES  DIVIDEO  BY  4 

IS  NUMBER  OF  YEARS  SINCE  LAST  400  YEAR 

SECTION  BEGAN 


IT  NUMBER  OF  LEAP  YEARS  IN  PRESENT  CENTURY 

IU  NUMBER  OF  YEARS  SINCE  LAST  LEAP  YEAR 

IV  NUMBER  OF  OAYS  IN  LAST  YEAR 


W • 
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IX  INTERMEDI ATE  INTEGER 

J INTERMEDIATE  INTEGER 

JO  NUMBER  OF  DAYS  IN  JULIAN  DATE 

P JULIAN  DATE 

R FRACTIONAL  PORTION  OF  OAY  IN  JULIAN  OATE 


if  > 

1 


SUBROUTINE  TITLE 

PURPOSES  TO  PRINT  TITLES  FOR  ERRAN. 

CALLING  SEQUENCES  CALL  TITLE (LINES*  TEVN*ICGOE) 
ARGUMENTS  LINES  NOT  USED 

TEVN  I EVENT  TIME 

ICOOE  I EVENT  CODE 

SUBROUTINES  SUPPORTEOS  SETEVN 


LOCAL  SYMBOLS  S 
COMMON  JSEDS 


< 


£44 


TPT 


TIKE  PREDICTING  TO 
IPR08  NPE  TPT2 


1-  > 


TITLE-A 


r • 

i 

i 


TITLZS-A 


SUBROUTINE  TITLES 

PURPOSE!  TO  PRINT  TITLES  FOR  SIMUL. 

CALLING  SEQUENCE!  CALL  TITLES (TEVN* ICOOE) 
ARGUMENT*  TEVN  I EVENT  TIME 
ICOOE  I EVENT  CODE 
SUBROUTINES  SUPPORTED*  SETEVS 

LOCAL  SYMBOLS!  TPT  TIME  PREDICTING  TO 
COMMON  USED!  IPROB  NPE  TPT2 
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t-r  ■ » 

ff  ■“ 


4- 


TBAKM-A 


SUBROUTINE  TRAKM 

PURPOSE!  the  observations  and  observation  matrix  for  a given  ty»e 
of  measurement  is  computed  by  this  routine 

CALLING  SEQUENCE!  CALL  TRAKM<HECV, ITRK, NR, IOBS, VECTOR) 

ARGUMENT!  HECV  I POSITION  AND  VELOCITY  OF  SPACECRAFT  AT  TIME 

OF  MEASUREMENT 

I08S  I CODE  WHICH  SPECIFIES  IF  MEASUREMENT  OR 
OBSERVATION  MATRIX  IS  TO  BE  COMPUTED 

- ITRK  I CODE  WHICH  SPECIFIES  MEASUREMENT  TYPE 
(CALLEO  MMCOOfc  ELSEWHERE  IN  PROGRAM) 


NR  0 

VECTOR  0 
SUBROUTINES  SUPPORTEOl  ERRANN 
SUBROUTINES  REQUIRED!  EPHEM 
LOCAL  SYMBOLS!  AOl 

AD2 
AD3 
AL  . 

ALAT 
ALON 
Ai 
A2 
v.3 
■n 

h, 

*3 
OE 

COAL 
CP 


NUMBER  OF  ROWS  IN  THE  OBSEHVATION  MATRIX 
ACTUAL  MEASUREMENT 


ORB  STAPRL  TARPRL 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIABLE 
INTERMEDIATE  VARIA8LE 
ALTITUDE 
LATITUDE 

A 

LONGITUDE 

PARTIAL  OF  RANGE  WITH  RESP£CT  TO  X 

PARTIAL  OF  RANGE  WITH  RESPECT  TO  Y 

PARTIAL  OF  RANGE  WITH  RESPECT  TO  2 

PARTIAL  OF  RANGE-RATE  WITH  RESPECT  TO  X 

PARTIAL  OF  RANGE-RATE  WITH  RESPECT  TO.  Y 

PARTIAL  OF  RANGE-RATE  WITH  RESPECT  TO  2 

COSINE  OF  OBLIQUITY  OF  EARTH 
COSINE  OF  STAR-PLANET  ANGLE 
COSINE  OF  LONGITUDE  ♦ CONSTANT 


y H 

* h 


$46 


D ADP 

OBOP 

DENOM 

0 

EK 

GECS 

GELS 

HECE 

HECP 

IA 

ICO 

IC 

IEND 

XR 

NA 

NC 

PAR 
PATt 
PAT  2 
PA 


TRAZM-S 

PART  XALS  OF  ST  i-R-PL  ANET  ANGIE  RG..«-r:f 

TO  VEHICLE  POSITION  AND  VELOCITY 

PART  IALS  OF  APPARENT  PLANET  01  Ah  c.  Efl 
RESPECT  TO  VEHICLE  POSITION  ANO  VILCClft 

INTERMEDIATE  VARIABLE 

INTERMEDIATE  TIME 

RANGE-RATE  PAR^IA!  WITH  RESPECT  K ST  ^ T ^ 
LOCATION  ERRORS 

GEOCENTRIC  ECUATORIAL  COORDINATE v 
STATION 

GEOCENTRIC  ECLIPTIC  COORDINATES  ’■  . i . 

COORDINATES  OF  EARTH 

COORDINATES  OF  TARGET  PLANE* 

TRACKING  STATION  LOCATION  SELECT  in* 

CQOE  CORRESPONDING  TO  TRACKING  S'  : < 

LOCATION  ERRORS 

» 

COLUMN  NUMBER  IN  OBSERVATION  **.*’  ■ ; X 
PARTITION  WHERE  EK  IS  TO  BE  STOTFO 

VARIABLE  INDEX  VALUE 

STAR-PLANET  ANGLE  INDEX  INCNEHEv f VALUE 

STAR-PLANET  ANGLE  INDEX  LOWER  . 

=1  FOR  3 STAR-PLANET  ANGLE.' 
sITRK-10  FOR  SINGLE  STAR-PLAV.f  ■-  '• 

STAR-PLANET  ANGLE  INOE*  UP>  ER  u’  . 

=3  FOR  3 STAR-PLANET  ANGLES 
•ITRK-1Q  FOR  SINGLE  STAR-PLir  EG 

PARTIALS  RETURNED  FROM  SUBROUT  I '**.  I A*'' 

INTERMEDIATE  VARIABLE 

INTERMEDIATE  VARIABLE 

PARTIALS 


S47 


RAONTP  RADIUS  OF  TARGET  PLANET 


RRATE  RANGE-RATE 

R1  RANGE 

R2  SQUARE  OF  RANGE 

SA  PARTIALS  OF  STAR-PLANET  ANGLES  WITH 

RESPECT  TO  VEHICLE  POSITION 

SE  SINE  OF  OBLIQUITY  OF  EARTH 

SIAL  SINE  OF  STAR-PLANET  ANGLE 

SP  SINE  OF  LONGITUDE  ♦ CONSTANT 

VEC  INTERMEDIATE  VECTOR 


COMMON 

COMPUTED/ USED  l 

AAL 

AM 

K 

NO 

T 

XP 

COMMON 

COMPUTED! 

G 

COMMON 

USED* 

ALNGTH 

DATED 

OELTM 

EM3 

EPS 

F 

IAUGCC 

IAUGIN 

IAUGMC 

I AUG 

IBARY 

NBOD 

NB 

NTP 

OHEGA 

ONE 

RADIUS 

sal 

SLAT 

SLON 

TH 

TRTM1 

TKO 

UNXVT 

UST 

VST 

WST 

ZERO 

TRAJLM- 1 


TBAXM  Analysis 


Subroutine  TBAKK  computes  observation  matrix  partitions  in  the  error 
analysis  mode.  It  is  completely  equivalent  to  the  simulation  mode  sub- 
routine TRAILS  with  10BS  always  set  to  zero.  See  subroutine  TRAILS  for 
further  analytical  detai la . A flow  chart  is  r.ot  presentee  for  TRAKM 
since  it  is  but  a subset  of  the  TRAKS  flow  cnart. 


TKAKS-A 


SUBROUTINE  TRAKS 

PURPOSE!  TO  COMPUTE  ALL  OBSERVATION  MATRIX  PARTITIONS  FOR  THE 

MEASUREMENT  TYPE  AND  TO  COMPUTE  THE  MEASUREMENT  ITSELF. 

CALLING  SEQUENCE!  CALL  TRAKS(HECV, ITRK, NR, IOBS, VECTOR) 

ARGUMENT!  HECV  I POSH  ION  AND  VELOCITY  OF  SPACECRAFT  AT  TIME 

OF  MEASUREMENT 

IOBS  I CODE  WHICH  SPECIFIES  IF  MEASUREMENT  OR 
OBSERVATION  MATRIX  IS  TO  BE  COMPUTED 

ITRK  I CODE  HHICH  SPECIFIES  MEASUREMENT  TYPE 
(CALLED  MMCODE  ELSEWHERE  IN  PROGRAM) 

NR  0 NUMBER  OF  ROMS  IN  THE  OBSERVATION  MATRIX 

VECTOR  0 ACTUAL  MEASUREMENT 

SUBROUTINES  SUPPORTED!  SIMULL 

SUBROUTINES  REQUIRED!  EPHEH  ORB  STAPRL  TARPRL 

LOCAL  SYMBOLS!  AOl  INTERMEDIATE  VARIABLE 

AD2  INTERMEDIATE  VARIABLE 

A03  INTERMEDIATE  VARIABLE 

ALAT  LATITUDE 

ALOM  LONGITUDE 

AL  ALTITUDE 

A1  PARTIAL  OF  RANGE  WITH  RESPECT  TO  X 

A2  PARTIAL  OF  RANGE  WITH  RESPECT  TO  Y 

A3  .PARTIAL  OF  RANGE  WITH  RESPECT  TO  Z 

81  PARTIAL  OF  RANGE-RATE  KITH  RESPECT  TO  X 

. 82  PARTIAL  OF  RANGE-RATE  WITH  RESPECT  TO  Y 

B3  PARTIAL  OF  RANGE-RATE  WITH  RESPECT  TO  Z 

CE  COSINE  OF  OBLIQUITY  OF  EARTH 

COAL  COSINE  OF  STAR-PLANET  ANGLE 

CP  COSINE  OF  LONGITUDE  ♦ CONSTANT 
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OAOP  3 ARTIALS  OF  STAR-PLANET  ANGLE  WT T H RESPECT 

TO  VEHICLE  POSITION  AND  VELOCITY 

DROP  PARTIALS  OF  APPARENT  PlANET  DIAMETER  WITH 

RESPECT  TO  VEHICLE  POSITION  AND  VELOCITY 

OENOH  INTERMEDIATE  VARIABLE 

0 INTERMEDIATE  TIME 


'•«> 

t 


V 

m 


i 


r, 

( 

i 


EK  RmNGE-RATE  PARTIAL  WITH  RESPECT  TO  STATION 

LOCATION  ERRORS 

GECS  GEOCENTRIC  EQUATORIAL  COORDINATES  OF 

STATION 

GELS  GEOCENTRIC  ECLIPTIC  COORDINATES  OF  STATION 

HECE  COORDINATES  OF  EARTH 

HECP  COORDINATES  OF  TARGET  PLANET 

IA  TRACKING  STATION  LOCATION  SELECTION  CODE 

ICO  CODE  CORRESPONDING  TO  TRACKING  STATION 

LOCATION  ERRORS 

IC  COLUMN  NUMBER  IN  OBSERVATION  MATRIX 

PARTITION  WHERE  • IS  TO  BE  STORED 

IENO  VARIABLE  INDEX  VALUE 

IR  STAR-PLANET  ANGLE  INDEX  INCREMENT  VALUE 

MA  STAR-PLANET  ANGLE  INDEX  LOWER  LIMIT 

=1  FOR  3 STAR-PLANET  ANGLES 
= ITRK-10L  FOR  SINGLE  STAR-PLANET  ANGLES 

NC  STAR-PLANET  ANGLE  INDEX  UPPER  LIMIT 

=3  FOR  3 STAR-PLANET  ANGLES 
sITRK-10  FOR  SINGLE  STAR-PLANET  ANGLES 

PAR  PARTIALS  RETURNED  FROM  SUBROUTINE  TARPRL 

PATi  INTERMEDIATE  VARIABLE 

PAT 2 INTERMEDIATE  VARIABLE 

PA  PARTIALS 

RADNTP  RADIUS  OF  TARGET  PLANET 


,T 


i 

tr 
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RRATE 


RANGE-RATE 


Ri  RANGE 

R2  SQUARE  OF  RANGE 

SA  partxals  of  star-planet  angles  with 

RESPECT  TO  VEHICLE  POSITION 
SE  SINE  OF  OBLIQUITY  OF  EARTH 

SXAL  SINE  OF  STAR-PLANET  ANGLE 

SP  SINE,  OF  LONGITUDE  ♦ CONSTANT 

VEC  INTERMEDIATE  VECTOR 


COMMON 

CONPUT  ED/USEO 1 

AAL 

AH 

H 

NO 

XP 

com  on 

COMPUTED* 

G 

COMMON 

USED* 

ALNGTH 

DATE  J 

DELTH 

EM3 

EPS 

F 

IAUGOC 

IAUGIN 

IAUGNC 

I AUG 

IBARY 

NBOO 

NB 

NTP 

OMEGA 

ONE 

RADIUS 

SAL 

SLAT 

SLB 

SLON 

TH 

TRTHB 

TRTN1 

TWO 

UNIVT 

UST 

VST 

HST 

ZERO 

it*  * 
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TEAKS  Analysis 


Subroutine  TEAKS  par forms  two  functions  in  the  simulation  mode.  The  first 
function,  which  corresponds  to  10BS  «*  0,  is  to  compute  all  observation 
matrix  partitions  for  the  measurement  type  indicated  by  1TBK . The  second 
function,  which  corresponds  to  10BS  f 0,  is  to  compute  the  measurement 
itself.  If  I0BS  * 1,  TEAKS  computes  the  measurement  corresponding  to  the 
most  recent  nominal  spacecraft  state.  If  I0ES  « 2,  TEAKS  computes  the 
measurement  corresponding  to  the  actual  spacecraft  state,  and,  if  the 
measurement  is  a range  or  range -rate  measurement,  to  the  actual  tracking 
station  locations.  The  number  of  rcarfs,  NR,  ir.  the  measurement  and  the 
observation  matrix  partitions  is  also  computed. 

A general  measurement  has  form 

T - T( I\  7,  t ; 

where  X is  the  spacecraft  po:  ition/velocity  state  at  time  t and  p is 
a vector  of  parameters.  This  i qua t ion  can  be  linearized  about  nominal  X 

and  p*  to  obtain 


(s)' 


where  ( )*  Indicates  matrices  are  evaluated  at  the  nominal  condition. 

This  perturbation  equation  can  be  rewritten  as 

6t  * HiX  + M ix  + G 4 u + L 

8 

where  H ■ ( — -L  ] , and  ( — 3 ] is  distributed  among  the  M,  G,  and  L 

\*X  I \d?  / 

partitions  uo  correspond  to  the  partition  of  the  parameter  vector  ip*  into 

solve- for  parameters  i-*  , dynamic  consider  parameters  ilf , and  measurement 

s 

consider  parameters  i"v. 

In  the  remainder  of  this  section  the  meaiurement  equation  and  all  partial 
derivatives  required  to  construct  the  H,  M,  G,  and  L observation  matrix 
partitions  will  be  sutanarized  for  each  measurement  type. 


A range  measurement  has  form 
P-  0 ( X,  E,  9,  0,  t) 

where  E,  9,  and  0 are  the  radius,  latitude,  and  longitude  of  the  relevant 
tracking  station.  1 
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% 

1 

J 


*r 

l 


More  explicitly, 

»■  [« ■ H • V2  + a - ye 

where  X,  f,  Z ■ inertial  position  components  of  spacecraft 


Y ) + (2  - Z - Z 

S E S 


>2]' 


X , Y t Z ■ Inertial  position  components  of  Earth 
£ E E 

X f Y # Z • station  position  components  relative  to  Earth < 

s s s 


ft 


w- ; S 


X , Y , and  Z are  related  to  &,  6,  and  0 as  follows: 

s s s 

X ■ a cos  9 cos  G 

s 

Yg  •»  E cos  9 cos  £ sin  G + R sin  9 sin  £ 

Z ■ -R  cos  9 sin  € sin  G + R sin  9 cos  £ 

S 

where  £ is  the  obliquity  of  the  Earth,  and 

G - 0 + GHA 

where  GHA  is  the  Greenwich  hour  angle  at  time  t . 

Partial a of  p with  respect  to  spacecraft  state  are  given  by 


~ . A (x  - x_  - x ) 
ax  P £ s' 


JUL  m 1 (Y  - Y - Y) 
dY  P E S' 


_£P  i 

az  " ' 


<z  ' S " zs> 


ap 

ax 

ap 

aY 

ap 

az 


- o 


- o 


Partlals  of  P with  respect  to  R,  9,  and  0 are  given  by 


jl e 

ax 

ap 

P 9 

ap 

d0 


- . 

ax„ 


ap 

% 

ap 

ax„ 


is 

ag 

li 

a9 

li 

a0 


ap 

**s 

ap 

py. 


ap 

*y„ 


Us 

ag 

Us 

ag 

Us 

a0 


ap 

d2s 

dP 

*h 

dP 

az. 


Ifs 

PR 

Ifs 

a© 

Ifs 

a0 


554 


ft 

4 
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4 


u 
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TRAXS-3 


where 


dP 


ax. 
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oP 
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ap 
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end  the  negatives  of  the  partial s of  Xg,  Yg,  and  Zg  with  respect  to 
R,  0,  and  0 are  summarized  In  the  subroutine  STAPRL  analysis. 


B.  Range- rate  measurement  n . 

A range- rate  measurement  has  form 
P - P*(  X,  R,  0,  0,  t) 

where  all  arguments  have  been  defined  previously,  .''ore  explicitly, 


n - PxPx  ^ Py  Py  +Pz  P 

P 


where 


X * *E  • XS 


« X 


V xs 


Y - Y - Y 
lE  S 


'y 


v • ' e - Ys 


p - z - z - z„ 

Hz  E S 


0 

z 


z - zr  - 

E S 


Xg,  Yg,  and  Zg  are  related  to  R,  6,  and  9 as  follows: 


X » -u>R  cos  © sin  G 
S 


Yg  •>  (j  R cos  0 cos  € cos  G 


Zg  « -<*>R  cos  0 sin  € cos  G 


where  (j)  is  the  rotational  rate  of  the  Earth. 

Partlals  of  p with  respect  to  spacecraft  state  are  given  by 
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The  partial  of  p with  respect  to  R is  given  by 


4 * ->t\- 
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9 R dXg  ^R 


L + 

ap 
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dR 

azs  aR 
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where 


The  negatives  of  the  partials  of  Xg , Yg , Zg , Xg,  Yg , and  Zg  with  respect 

to  R,  9,  and  0 are  sumaarized  in  the  subroutine  STAPRL  analysis.  Partials 
of  p with  respect  to  9 and  0 are  treated  similarly. 

C.  Star-rlanet  angle  measurement  Ct  . 

A a tar- planet  angle  measurement  has  form  Of 

a-O  ( X,  a.  e,  i,  Q , U , M) 

where  a,  e,  i,  Q , u>  , and  M are  the  standard  set  of  target  planet 
orbital  elements. 

If  we  dafina  p ■ (p  , p ,p  m)  to  be  the  position  of  the  target  planet 

x y z 

relative  to  the  spacecraft  and  (u,  v,  w)  to  be  the  direction  cosines  of  the 
relevant  star,  then 


where 


• - 
^ — (u  P + vP  + wP  ) 

IP  * y 2 J 


X - X,  P - Y - Y,  P - Z - Z, 
P y P z P 


and  (Xp,  Yp,  Z^)  represent  the  position  coordinates  of  the  target  planet. 
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Partiala  of  Ct  with  respect  to  spacecraft  state  are  given  by 
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The  partial 
by 
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and  partiala  of  X , Y , and  Z with  respect  to  semi-major  axis  are 
P P P 

summarized  in  the^ subroutine  TARPRL  analysis.  Partials  of  0*  with  respect 
to  Xp,  Yp,  and  Zp  do  not  appear  in  the  above  expression  since  they  are 

all  zero.  Partials  of  a with  respect  to  the  remaining  target  planet 
orbital  elements  are  treated  similarly. 

D,  Apparent  planet  diameter  measurement  & , 

An  apparent  planet  diameter  measurement  has  form  , 

0 - 0{  X,  a,  e,  i,  Q,  U , M) 

where  all  arguments  have  been  defined  previously. 

Defining  P ■ (P  , f>  , p ) to  be  the  position  of  the  target  plrnet  relative 
x y z 

to  the  spacecraft  and  Rp  to  be  the  radius  of  the  target  planet,  the  apparent 
planet  diameter  can  then  he  written  as 
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Partials  of 

P with  respect  to 

spacecraft  state  are  given  ! 

BP  . 

2 V* 

PI  . 

dx 

p1  [p2  . *2 ] 4 

dx 

6P 

2 

— as 

dY 

p2  \»2  ■ *»2 1 4 

dv 

L ? i 

BP 

2 R P 
P * 

Bl  . 

dz 

P2  f - “o2  1 4 

dz 

The  partial  of  P with  respect  to  target  planet  semi-major  axis  is  given 
by 

dp  _ e_P_  pp?  + dJL  £lz  + PL  PL 

da  " ‘ ' 


dXp  da 


dYp  da  dzp  da 


where  dJL  - - Pi  JLl  - - PI  , PA  - - , 

dx  dx  dY  dY  dz  dz 

p p p 


and  partials  of  X , Y , and  Z with  respect  to  semi-major  axis  are 
p P P 

summarized  in  the  subroutine  TARP&L  analysis. 


Partials  of  /?  with  respect  to  X , Yp,  and  Zp  do  not  appear  in  the  above 
expression  since  they  are  all  zero.  Partials  of  P with  respect  to  the 
remaining  target  planet  orbital  elements  are  treated  similarly. 
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Compute  spacecraft  position  and  velocity 
coordinates  relative  to  the  Barth. 


p 

Compute  range  P and  range- rate  P of 
spacecraft  relative  to  the  Earth. 


Set  Y • f>  and 
NR  - 1 . 


10BS  * 0 ? y 

NO 

\\ 

t 

ITRK  ■ 

. 1 ? \ 
/ 

...  V 

NO 

1 

: Y » 

< 1 

•tv 

and  NR  “ 2 . 


RETURN 


Compute  partlals  of  P with  respect 
to  X for  the  idealized  station  and 
Insert  in  H matrix.  Set  NR  • ITRX. 


XTRK  * 1 ? 
NO 


RETURN 


Compute  partials  of  P with  respect 
to  X for  the  Idealized  station  and 
insert  in  U matrix. 


RETURN 


TRAiLS-9 


Compute  nominal  altitude,  latitude,  and 
longitude  of  the  LA-th  tracking  station. 


I0BS  i 2 ? 


Compute  actual  altitude,  latitude,  and 
longitude  of  the  lA-th  tracking  station. 


Compute  geocentric  equatorial  components  I 
•' r tracking  Btation  position  and  velocity  i 
relative  to  the  center  of  the  Earth.  I 


Compute  geocentric  ecliptic  components 
of  tracking  station  position  and  velocity 
relative  to  the  Earth. 


Compute  spacecraft  position,  velocity, 
range  p , and  range-rate  p relative 
to  lA-th  tracking  station. 


Set  Y - 4 and  NR  * 1 . 


Set  Y - 
WR  > 2 . 


RETURN 


TRAILS- 10 


Compute  partial*  of  P with  respect 
to  If  for  the  IA-th  station  and 
insert  in  H matrix. 


Are  any  station  location  errors 
in  <5>?6  or  0V  ? 


Call  STAPRL  to  compute  partials  of 
station  position  and  velocity  components 

with  rebpect  to  station  radius  R , 
latitude  6 , and  longitude  0 ■ 


Is  &V„  in  6%  or  ? 

K s 


Compute  partial  of  P with  respect  to 
IH  and  insert  in  the  appropriate 

column  of  the  M or  L matrix. 


ITBL>  4 ? 


-^y.™v? 


Is  ra age- rate  bias  d/5 
in  d * or  § v ? 


Compute  partial  of  P with  respect  to 
«A  and  Insert  In  the  appropriate 
column  of  the  M or  L matrix. 


Set  NR  - 1 


TSARS- 11 


1TBX  odd? 


Set  NR  - 2 and  shift  all  previously 
computed  />  partials  into  the  2nd 
row  of  the  R,  M,  and  L matrices. 


Compute  partials  of  p with  respect 
to  X for  the  lA-th  station  and 
insert  in  H matrix. 


Compute  partial  of  p with  respect  to 
dp^  and  Insert  in  the  appropriate 

column  of  the  M or  L matrix. 


>3  ? 


K»Ktl 
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1b  4p  in  6 x or  6u  ? 
K 6 


Call  TA.RPRL  to  compute  target 
planet  position  partials  with 
respect  to  element  Ap  . 

K 


Compute  partial  of  a ^ with  respect  to 

ip  for  all  pertinent  star-planet 
K 

angles,  and  insert  n the  appropriate 
column  of  the  M or  G matrix. 


K > '»  ? 


K ■ K ♦ 


□ 


Compute  target  planet  position  and  velocity 
coordinates  and  range  relative  to  space- 
craft. Compute  target  planet  radius. 


Set  Y ■ 0,  the  apparent 
planet  diameter.  Set  HR-i 


TEAKS- 13 


Compute  partial s of  0 with  respect 
to  H and  Insert  la  H matrix. 

Set  HR  - 1 . 


Is  bias  i0  in  Ax  or  jv  ? 

8 


Compute  partial  of  0 with  respect  to 
iff  and  Insert  in  the  appropriate 
column  of  the  M or  L matrix. 


K - 1 


Aa  , 
Ae  , 
Ai  . 
AO  , 
A w , 


Is  Ap„  in  Ax  or  AvT  ? 

K s 


Call  TARPRL  to  compute  target  planet 
position  partlals  with  respect  to 
element  *v 


Compute  partial  of  0 with  respect  to 
dPg  and  Insert  in  the  appropriate 

column  of  the  M or  G matrix. 


K>  6 ? 


K - K ♦ 1 


RETURN 


TRANS-A 


SUBROUTINE  TRANS 

PURPOSE!  TO  PERFORM  ONE  OF  THE  FOLLOWING  THREE  OPTIONS. 

1.  CONVERT  FROM  GEOCENTRIC  EQUATORIAL  RECTANG- 
ULAR COORDINATES  TO  GEOCENTRIC  ELIPTIC 
COORDINATES 

2«  CONVERT  FROM  GEOCENTRIC  EQUATORIAL  COORD- 
INATES TO  HELIOCENTRIC  ECLIPTIC  COORDINATES 

3.  CONVERT  FROM  GEOCENTRIC  ECLIPTIC  COORD- 
INATES TO  HELIOCENTRIC  ECLIPTIC  COORDINATES 

CALLING  SEQUENCE!  CALL  TRANS<ICODE,X,Y,Z,VXfVV,VZ,XE,YE,ZE,VXE, 

VYE  » VZEtEPS  t ICODE2) 

ARGUMENT!  EPS  I OBLIQUITY  OF  EARTH 

ICOOE  I AN  INTERNAL  CODE  THAT  DETERMINES  IF  OPTION 
1 OR  2 ABOVE  MILL  BE  EXERCISED 

ICODE2  I AN  INTERNAL  CODE  THAT  DETERMINES  IF  OPTION 
3 ABOVE  IS  TO  BE  EXERCISED 

VX  I/O  X-VELOCITY  COMPONENT  OF  THE  VEHICLE 


VXE  I X-VELOCITf  COMPONENT  OF  EARTH  IN 

HELIOCENTRIC  ECLIPTIC  COORDINATES 


VY 

I/O 

Y-VELOCITY 

COMPONENT 

OF 

THE 

VEHICLE 

VYE 

I 

Y-VEJ  OCITY 

COMPONENT 

OF 

earth 

VZ 

I/O 

Z-VELOCXTY 

COMPONENT 

OF 

THE 

VEHICLE 

VZE 

I 

Z- VELOCITY 

COMPONENT 

OF 

EARTH 

X 

I/O 

X-POSITION 

COMPONENT 

OF 

THE 

VEHICLE 

XE 

I 

X-POSITION  COMPONENT  OF  THE  EARTH 
IN  HELIOCENTRIC  ECLIPTIC  COORDINATES 

Y 

I/O 

Y-POSITION 

COMPONENT 

OF 

THE 

VEHICLE 

YE 

I 

Y— POSITION 

COMPONENT 

OF 

THE 

EARTH 

Z 

I/O 

Z-POSITION 

COMPONENT 

OF 

THE 

VEHICLE 

ZE 

I 

Z-POSITION 

COMPONENT 

OF 

the 

'EARTH 

SUBROUTINES  SUPPORTED!  OAT A DAT AS 

LOCAL  SYMBOLS!  C£  COSINE  OF  OBLIQUITY  OF  EARTH 

DUM  INTERMEDIATE  VARIABLE 
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TRASS  Analysis 

Subroutine  TRASS  transforms  the  position  and  velocity  components  of  the 
spacecraft  from  one  coordinate  system  to  another.  The  three  options 
available  with  this  subroutine  are  summarized  below. 

1)  Convert  from  geocentric  equatorial  coordinates  to  geocentric 
ecliptic  coordinates  using  the  following  equations: 

X - X 

Y - Y Cos  (.  + Z Sin  ( 

1 - -Y  Sin*  + Z Cos  € 


TVJAZ-k 


SUBROUTINE  TRAPAR 

PURPOSE!  TO  COMPUTE  THE  FOLLOWING  SET  OF  NAVIGATION  PARAMETERS 
— FLIGHT  PATH  ANGLE,  ANGLE  BETWEEN  RELATIVE  VELOCITY 
ANO  PLANE  OF  THE  SKY,  GEOCENTRIC  IE'JlINATION,  EARTH/ 
SPACECRAFT/TARGET  PLANET  ANGLE,  ANT'-'NA  AXIS/LIMB  QF 
SUN  ANGLE,  ANO  SPACECRAFT  OCCi^TATION  RATIOS  FOR  $UN, 
NOON,  ANO  PLANETS. 

CALLING  SEQUENCE!  CALL  TRAPAR 

SUBROUTINES  SUPPORTED!  PRINT  PRINT*,  SETVEVS  PRINTS  SETgVN 

SUBROUTINES  REQUIREOI  EPHEM  ORB  PECEQ 


LOCAL  SYMBOLS!  ALFA  VECTOR  FORMING  RIGHT-HANDEO  ORTHOGONAL 

TRIAD  WITH  XN  AMD  SSS  VECTORS  FOR 
CALCULATION  OF  ANTENNA  AXIS/LIMB  OF  ANGLE 
OF  SUN 

AHAG  MAGNITUDE  OF  THE  ALFA  VECTOR 

BETA  ANTENNA  AXIS/EARTH  ANGLE 


CO  COSINE  OF  GEOCENTRIC  DECLINATION 

CT  INTERMEDIATE  VARIABLE  FOR  ALL  CALCULATIONS 


CZAE  COSINE  OF  EARTH/SPACECRAFT/TARGET  PLANE 
ANGLE 


DELTA  GEOCENTRIC  DECLINATION 

OS  INTERMEDIATE  VARIABLE  FOR  CALCULATION  OF 

OCCULTATION  RATIOS 

ECEOP  TRANSFORMATION  FROM  EARTH  ECLIPTIC  TO 
EQUATORIAL  FRAME  FOR  CALCULATION  OF 
GEOCENTRIC  DECLINATION 

GANNA  ' INERTIAL  FLIGHT  PATH  ANGLE 

INO  LOCATION  IN  THE  F ARRAY  OF  THE  EARTH 
POSITION  ANO  VELOCITY  IN  THE  INERTIAL 
FRAME 

• 

ISAVE  SAVES  AND  RESTORES  FIRST  ELEMENT  OF  THE 
NO-ARRAY  FOR  BARYCENTRIC  NAVIGATION 


UNO  LOCATION  IN  THE  F ARRAY  OF  THE  TARGET 
PLANET  POSITION  AND  VELOCITY  IN  THE 
INERTIAL  FRAME 


TBAPA&-B 


NINETY  CONSTANT  VALUE,  EQUAL  TO  90.000 

OCCULT  OCCULTATION  RATIO  OF  THE  I-TH  PLANET 

PHI  ANTENNA  AXIS/LIH8  OF  SUN  ANCLE 

RDV  INTERMEDIATE  VARIABLE » DOT  PRODUCT  OF  TWO 

VECTORS 

RENAC  MAGNITUDE  OF  THE  EARTH  HELIOCENTRIC 
POSITION 

RINAG  MAGNITUDE  OF  THE  POSITION  OF  THE  I-TH 

PLANET  IN  THE  GEOCENTRIC  ECLIPTIC  FRAME 

RMAG  MAGNITUDE  OF  THE  SPACECRAFT  HELIOCENTRIC 
POSITION 

RSS  SPACECRAFT  HELIOCENTRIC  POSITION 

SO  SINE  OF  GEOCENTRIC  DECLINATION 

SKYI  ANGLE  BETWEEN  SPACECRAFT  VELOCITY  RELATIVE 
TO  EARTH  AND  PLANE  OF  THE  SKY 

SRDV  DOT  PRODUCT  OF  SPACECRAFT  GEOCENTRIC 
POSITION  AND  VELOCITY  VECTORS 

SRE  SPACECRAFT  GEOCENTRIC  ECLIPTIC  POSITION 

ANO  VELOCITY 

SRMAG  MAGNITUDE  OF  SPACECRAFT  GEOCENTRIC 

POSITION 

SRQ  SPACECRAFT  GEOCENTRIC  EQUATORIAL  POSITION 

SRTMAG  MAGNITUDE  OF  SRTP  VECTOR 

SRTP  SPACECRAFT  ECLIPTIC  POSITION  RELATIVE  TO 

TARGET  PLANET 

SVMAG  MAGNITUDE  OF  SPACECRAFT  GEOCENTRIC 

VELOCITY 

SX  INTERMEDIATE  VARIABLE  FOR  ALL  CALCULATIONS 

SIAE  SINE  OF  EARTH/SPACECRAFT/TARGET  PLANET 

ANGLE 

THETA  INTERMEDIATE  ANGLE  USED  TO  CALCULATE 
NAVIGATION  PARAMETERS 

VHAG  MAGNITUDE  OF  SPACECRAFT  VELOCITY  RELATIVE 


TO  INERTIAL  FRAME 

XMAG  MAGNITUDE  OF  THE  XN  VECTOR  BEFORE 
UNITIZING 

XN  CROSS  PRGOUCT  OF  SPACECRAFT  GEOCENTRIC 

POSITION  ANO  SPACECRAFT  SPIN  AXIS 


ZAE  EARTH/SPACECRAFT/TARGET  PLANET  ANGLE 
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TRAEAR  Analysis 


The  coordinate  systems  and  variables  required  for  the  derivation  of  the 
first  four  navigation  parameters  are  ahovn  in  Figure  1.  The  inertial 
coordinate  system  Til  may  be  heliocentric  or  barycentrlc  ecliptic.  ^ 
The  position  and  velocity  of  the  earth  iu  inertial  space  is  given  by 

and  v ; that  of  the  spacecraft,  by  r and  v;  and  that  of  the  target 

planet  (or  moon),  by  and  v^.  The  xyz  coordinate  system  is 

geocentric  equatorial. 

1.  Flight  path  angle,  * . 


Let  8 denote  the  angle  between  r and  v,  so  that 


coa  9 " r-*  v and  sin  0 ■ + 

r v 


\i  - cos2  e]  * . 


:* 


Then 


y - ~ ~ 9 . 

2 

2.  Angle  between  relative  velocity  and  plane  of  the  bK>  , i.*. 


The  plane  of  the  sky  j.s  defined  as  the  plane  perpendicular  to  the 

vector  r - r . Let  01  denote  the  angle  between  *r*  - ~r  and 

_ _ E Z 
v*  - Vg,  ao  that 


co*1  91  “ 


(?-rE)-(y-vE) 


r - rEj-j  v-  vE 


and  sin  8*  ■ + | 1 - cos2  8*  ] 
L J 


Then 


< I rn  - Q« 

i T 8 . 


Hote  that,  i*  is  not  defined  if  the  relative  velocity  "v  - VI  is  zero. 


3.  Geocentric  declination,  6 . 

(*#  7»  *)  daaote  the  geocentric  equatorial  components  of  'r> 

Then 


- r 


6 ■ tan 


■W. 
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Figure  1 


i y- 


4.  Ear th/spacec raft/ target  planet  angle,  £ • 

The  angle  4 1*  the  angle  between  the  vectors 

so  that 


r_  and  r - r 
E X? 


cos  { m 


sin  <»  *■ 


(r*  - r*E) » (r*  - tT?) 

lT‘'fEHr’r»l 


«]% 


The  next  two  navigation  parameters  relate  to  the  spacecraft  antenna  axis. 
The  pertinent  geometry  is  shown  In  Figure  2.  The  antenna  axis  a Is 
defined  as  the  intersection  between  the  antenna  plane  (the  plane  perpen- 
dicular to  the  spacecraft  spin  axis  "5* ) and  the  plane  formed  by  the 
■Sr*  - "r j,  and  "a  vectors.  The  vector  p originates  from  the  limb  of  the 
sun  and  lies  in  the  ~r,  gf  plane. 

5.  Antenna  axis/Earth  angle,  0 . 

Let  V'  denote  the  angle  between  the  unit  spin  axis  vector  it  and 


r • V “ 


co$  iff  - 


“-(**  - r“_) 


and  6 in 


r - r 


1 - cos 


Then 


0- 


Hole  that  the  antenna  axis  is  not  uniquely  defined  when  the  angle  V ■ 0. 
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Antenna  Plane 


Figure  2.  Antenna  Axis  Geometry 


•e  axia/liab  of  'Sun  angle.  If. 

..•It  vector  "n  normal  to  the  ~b , ~x 
— (r  - ■?-)  x T 


r plane  la  given  by 

£ 


a “ 


| (r*  - ’rg)  * «“ 


e unit  antenna  axis  vector  01  is  given  by 
Ct  » ~a  x~b  . 
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The  angle  0^ 
so  thee 

co*  0„ 
2 

The  angle  0^ 
ao  Chat 


denotes  the  angle  between  the  vectors  r and  Of  , 
“ - — and  sin  0 ■ + f 1 - cos*  0 | 

r 2 L 2-1 

denotes  the  angle  between  the  vectors  p and  r. 


0 


1 


sin 


-1 


0 £ 0 


where  R is  the  radius  of  the  Sun. 

s 

Then 


9 - 


The  final  set  of  navigation  parameters  relate  to  spacecraft  occultation 
ratios  for  the  Sun  and  all  other  celestial  bodies  assumed  in  the  dynamic 
model.  The  pertinent  geometry  is  shewn  in  Figure  3.  The  position  of 
the  i-th  celestial  body  relative  to  the  Sun  is  denoted  by  "r*  . Occultation 

parameters  d and  d^  are  defined  as  the  minimal  distances  from  the 

centers  of  the  Sun  and  i-th  body,  respectively,  to  the  Earth/spacecraft 
vector  "r  - ig. 

7.  Spacecraft  occultation  ratio  for  the  Sun. 

The  occultation  ratio  for  the  Sun  i9  defined  as  d / R , where  R is 

8 S S 

the  Sun  radius.  As  long  as  the  occultation  ratio  is  greater  than  one, 
the  spacecraft  is  neither  being  occulted  by  the  Sun  nor  passing  in 
front  of  the  Sun.  The  occultation  ratio  is  computed  only  when  the 
angle  between  the  T - 7 and  ~r  vectors  is  less  than  or  equal  to 

90  degrees,  or,  equivalently,  when 


E 


cr-  r ) 4»  0. 


If  this  condition  is  satisfied,  the  occultation  ratio  is  computed  using 
the  equations 


\ 
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TEA PAX- 6 


Spacecraft 


Vi 


r - x. 


ri  " 


i-th  body 


Figure  3.  Occulta ti on  Geometry 


-rE.  (r*  - rg) 


r - r 


Occul tation  occurs  if  — S.  6*  1 and  I r - r_  | ^ r_  ; it  “ ==  1 and 

H i £ i & a 

8 * 

jr* - r*^J  d.  r^,  than  the  spacecraft  is  paeBing  in  front  of  the  Sun. 
Spacecraft  occultation ratios  for  other  celestial  bodies. 


The  occultation  ratio  for  the  i-th  celestial  body  is  defined  as  d^/R^, 
where  R,  is  the  radius  of  the  i-th  body.  The  occultation  ratio  is 


TEA PAR- 7 


l 


computed  only  when 


(r*  - r^)  • (r^  - "rg)  ^ 0 . 


If  this  conditions  is  satisfied,  the  occultstion  ratio  is  computed 
using  the  equations 

r 2 27  * 

4i  * L*i  ■ bi  ] 


'l  - 'E 


and 


h- 


’?k) 


r - r 


Occultstion  occurs  if  —1  — 1 and  I r - "r_  I j r*  - *r  I ; if 


i El 


d,  , 1-  - _ 

~ ==  1 and  I r “ rg  [ ^ j ri  “ rg [ * theQ  the  spacecraft  is  passing 
is  front  of  the  i-th  celestial  body. 
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TBJTRX-A 


SUBROUTINE  TRJTRY 

PURPOSE!  TO  DETERMINE  THE  TIME  OF  THE  NEXT  GUIOANCE  EVENT  AND 
INTEGRATE  THE  NOMINAL  TRAJECTORT  FROM  THE  PREVIOUS 
EVENT  TIME  TO  THE  NEXT  TIME. 

CALLING  SEQUENCE!  CALL  TRJTRY 

SUBROUTINES  SUPPORTED!  NOMNAL 

SUBROUTINES  REQUIRED!  VMP 

LOCAL  SYMBOLS*  ACX  ACCURACY  USED  TO  INTEGRATE  THE  NOMINAL 

TRAJECTORY 

DELMIN  TIME(DAYS)  BETWEEN  THE  LAST  EVENT  AND  THE 
NEXT  EVENT 

OELTM  SAME  AS  DELMIN  -THE  TIME  VMP  IS  TO 

INTEGRATE  THE  TRAJECTORY  UNLESS  ANOTHER 

STOPPING  CONDITION  OCCURS 

OELT  SAME  AS  DELMIN 

ERROR  MINIMUM  ALLOWABLE  VALUE  OF  DELMIN 

ISP2  FLAG  TO  CONTROL  STOPPING  CONDITION 
=1  STOP  AT  SMPERE-OF-INFLUENCE 
*0  DO  NOT  STOP  AT  SHPERE-OF- INFLUENCE 

I INDEX 

J INDEX 

RSF  SPACECRAFT  STATE  AT  FINAL  TIME 


COMMON 

COMPUTED/USED  I 

01 

KTIM 

ICL2 

RIN 

I CL 
TIKG 

ISPH 

TRTM 

KSICA 

COMMON 

COMPUTEO* 

OELTP 

IEPMEM 

INPR 

IPRINT 

<UR 

COMMON 

USED* 

ACKT 

V 

KGYD 

NC  PR 

NOGTO 

TMPR 

$ REPRODUrmni!  y Of  ISl»]r«feSISEW0SWak 


TBJTRY-1 


TBJTB.Y  Analysis 


TRJTRY  determines  the  time  of  the  next  guidance  event  era  integrates 
the  nominal  trajectory  from  the  previous  event  time  to  tne  next  time. 

Special  provisions  must  be  made  In  determining  the  next  guidance  event 
because  of  the  flexibility  permitted  !r.  specifying  the  timed  of  those 
guidance  events.  For  every  guidance  event  i,  p-rcuectert  XTlK(i)  and  TIKG(l) 

will  have  been  set  before  entering  TBJTEY.  KIIM(i) *pri rioes  the  epoch 

to  which  the  guidance  event  i Is  referenced  with  KTIrhl)  *-  1,2,3 
corresponding  to  epochs  of  initial  time,  sphere  oi  mfl„-r.cc  (SOI)  inter- 
section, and  closest  approach  (CA)  passage  respectively  TIMG(i)  then 
specifies  the  time  interval  (days)  from  the  epoch  t r,  u,-.  guidance  event. 

The  guidance  events  do  not  need  to  be  arranged  chrur.c.ogicaliy . After 
execution  of  each  guidance  event  i tr.e  flag  KTIK(i)  i •_  _,et  equal  to  0. 

The  first  computational  procedure  in  TLJTilY  is  the  sequur.cl.g  loop.  Here 
a search  determines  the  minimum  value  of  T&iG(l)  over  ell  \aiues  of  i 
such  that  KTIM(i)  - 1.  The  time  interval  At  between  that  time  and  the 
current  j^itne  is  then  -omputed.  If  At  n hss  than  ar.  ^...ovable  tolerance 
* ("10  days)  the  program  returns  to  NCfrQiAL  for  the  processing  of  the 
current  event. 

If  At  > « THJTHY  must  perform  an  intc^re  ti  ;-.  it  the  ne>:;  ....uance  event. 
TRJTRY  first  sets  up  flags  controlling  integration  stopping  conditions 
depending  upon  the  current  value  of  KS1CA.  The  flag  KS1CA  .demines 
the  current  phase  of  the  trajectory.  ItSICA  i6  initially  ctr  equal  to  1 
(PRELIM).  When  the  tmgei  planet  SOI  is  esc  oc.  .tered  KSii'A  set  to  2. 
Finally  when  CA  to  tne  target  planet  occurs  it  is  set  to  3. 

The  stopping  condition  flags  are  ISP2  and  ICL2 . Tne  flee  IS?2  determines 
whether  the  integration  should  be  stopped  it  SOI  if  enco_-.tered  (ISP2  " 1) 
or  not  (ISP2  - 0).  The  flag  ICL2  determines  wnel  ner  the  nr.gration  sr.ccl: 
be  stopped  at  CA  if  encountered  (ICL2  * 1)  or  not  (XCL2  » C) . 

Therefore  if  KS1CA  • 1,  TRJ TRY  sets  1S?2  *»  50  chat  the  * cration  will 

stop  at  the  guidance  event  time  only  if  tuat  time  occurs  before  SOI.  But 
if  the  SOI  is  encountered  before  the  event  time,  all  tixec  referenced  to 
the  SOI  must  be  updated  before  determining  the  next  event.  Similarly  when 
XSICA  - 2 TRJTRY  sets  1CL2  “ 1 to  that  times  referenced  to  CA  may  be  up- 
dated when  CA  occurs.  Of  course  when  KSICL  ’*  3,  all  timei  r c v e been  update- 
(referenced  to  initial  time)  and  neither  IS  Pd  nor  ICL2  need  be  set  to  1. 

Having  set  the  stopping  condition  flags,  TRJ7HY  now  calls  VHP  for  the 
propagation  of  the  trajectory  to  the  required  stopping  condition.  At  the 
end  of  the  Integration  it  records  the  current  trajectory  time  and  state. 

TIL) TRY  now  sorts  again  on  SLSICA.  If  HSXCA  • 3,  the  trajectory  has  been 
integrated  to  the  time  of  the  current  event  aud  po  control  ray  be  returned 
to  NOMN&I. 


3 

! 

I 


l 


5d3 


TBJTBY-2 


If  KSICA  • 1 the  801  had  not  yet  been  reached  at  the  previous  event. 

THJTHY  then  check*  the  flag  1SFH.  The  flag  1S7H  reveal*  whether  the 
current  trajectory  intersected  the  target  planet  SOI  (ISFH  - 1)  or  did 
not  (IS  PH  - 0).  Therefore  if  IS PH  - 0 , the  current  guidance  event 
occurred  before  the  trajectory  Intersected  the  SOI  and  thus  the  current 
state  corresponds  to  the  time  of  the  guidance  event.  Therefore  the  return 
is  made  to  HCKKAL. 

If  however  KSICA  ■ 1 and  IS PH  • I the  trajectory  integration  was  stopped 
at  the  SOI.  TBJTHY  now  sets  KSICA  « 2 and  updates  all  times  referenced  to 
the  SOI  so  that  they  are  new  referenced  to  initial  time  (KTIK(i)  “ 1). 

It  reenters  the  sequencing  loop  to  determine  the  time  of  the  next  guidance 
event  where  the  candidate  events  now  include  those  originally  referenced 
to  SOI. 

Similar  steps  are  made  when  KSICA  - 2.  The  flag  ICL  designates  whether 
the  current  trajectory  had  a CA  (ICL  ■ 1)  or  not  (ICL  *0).  If  KSICA  ■ 2 
an**  ICL  • 0,  the  trajectory  encountered  the  guidance  event  before  reaching 
a CA  so  the  return  is  made  to  NCSiKAL . If  KSICA  * 2 and  ICL  » 1.  the  final 
time  and  state  of  the  trajectory  refer  to  c1osest  approach.  In  this  case 
TUTKY  sets  KSICA  ■ 3 and  updates  to  initial  tine. all  tines  originally 
referenced  to  CA.  It  then  returns  to  the  sequencing  loop.  , 
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VAMIA-A 


SUBROUTINE 

PURPOSE 


VARAOA 

COMPUTE  VARIATION  MATRIX  FOR  THREE-VARIABLE  8-PLANE 
GUZOANCE  POLICY  IN  THE  ERROR  ANALYSIS  PROGRAM 


CALLING  SEQUENCES 

ARGUMENTS  AO A 
BS 

BORS 

BOTS 

RI 

TEVN 

TSI 

XSIP 

XSIV 


CALL  VARAOA<RI*XSIP»XSIV»TEVN*TSI»  ADA , 8L»  BDTS» 
BORS) 

0 VARIATION  MATRIX 

1 B OF  THE  NOMINAL  TRAJECTORY 

I B DOT  R OF  THE  NOMINAL  TRAJECTORY 

I B OOT  T OF  THE  NOMINAL  TRAJECTORY 

I POSITION  AND  VELOCITY  CF  THE  VEHICLE  AT  THE 
TIHE  OF  GUIDANCE  EVENT 

I TRAJECTORY  TIME  OF  THE  GUIDANCE  EVENT 

I TRAJECTORY  TIME  AT  WHICH  THE  VEHICLE 
REACHED  THE  SPHERE  OF  INFLUENCE  ON  THE 
NOMINAL  TRAJECTORY 

I POSITION  OF  THE  VEHICLE  AT  THE  SPHERE  OF 
INFLUENCE  ON  THE  NOMINAL  TRAJECTORY 

I VELOCITY  OF  THE  VEHICLE  AT  THE  SPHERE  OF 
INFLUENCE  ON  THE  NOMINAL  TR AJEC~ORY 


r • !'  _> 

it, 

' 

& 

> 


& 


;i i 


‘A 


SUBROUTINES 

SUPPORTED! 

GUID 

* 

V 

SUBROUTINES 

REQUIRED! 

NTM 

■? 

LOCAL  SYMBOLS!  BOR1 

TEMPORARY 

STORAGE 

FOR 

BDR 

if 

> 

■i 

BDT1 

TEMPORARY 

STORAGE 

FOR 

BDT 

f 

81 

TEMPORARY 

STORAGE 

FOR 

a 

3 

■1 

vr 

• 

OSI1 

temporary 

STORAGE 

FOR 

DSI 

. k 

IPR 

temporary 

STORAGE 

FOR 

IPRINT 

i 

\-r 

ISP 

temporary 

STORAGE 

FOR 

ISP2 

V 

■ t 

temporary 

STORAGE 

FOR 

IPRINT 

’ J' 

. 

*9 

RF 

ALTERED  FINAL  STATE  OF 

VEHICLE 

s, 

fi 

TSI1 

TEMPORARY 

STORAGE 

FOR 

TSI 

P‘ 
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V 
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VABADA-a 


XC  ALTERED  INITIAL  STATE  OF  VEHICLE 


COMMON 

COMPUTED/ USED  1 

BOR 

ISP2 

BDT 

DSI 

ipsint 

ISPH 

COMMON 

COMPUTED! 

B 

DEL  TM 

RSI 

VSI 

COMHON 

USED! 

OATEJ 

NTP 

FACP 

FmCV 

NTMC 

4 _ - 
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VASA DA  Analysis 


Subroutine  VABADA  employs  numerical  differencing  to  compute  the  variation 
matrix  H for  the  three-variable  B-plane  guidance  policy  in  the  guidance 
event  of  the  error  analysis  mode.  See  subroutine  VARSIM  Analysis  for 
further  analytical  details,  since  the  only  difference  between  VARADA  and 
VARSIM  is  that  VARADA  compilations  are  based  on  the  most  recent  targeted 
nominal,  while  VARSIM  computations  are  based  on  the  most  recent  nominal. 
The  VARADA  flow  chart  is  identical  to  that  oi  VARSIM  except  for  the  fact 
that  in  VARADA  the  nominal  position/velocity  state  at  tCT  is  saved 

prior  to  calling  VARADA,  while  in  VARSIM  it  is  saved  locally. 


1 


VAILS  IM- A 


SUBROUTINE  VARSIN 

PURPOSE  JL  .'UTE  VARIATION  MATRIX  FOR  THREE- VARIABLE  B-PLANE 
GUIDANCE  POLICY  IN  THE  SIMULATION  PROGRAM 

CALLING  StOoIKCEl  CALL  VARSlM(RIlvTEVN»TSI»AOA) 


ARGUMENT k ADA 


0 VARIATION  MATRIX 


I Vu.rtICLE  POSIT  ION/ VELOCITY  ON  MOST  RECENT 
NOMINAL  TRAJECTORY  AT  TIME  OF  THE  GUIDANCE 
EVENT 


TEVN 


I TRAJECTORY  TIME  OF  GUIOANCE  EVENT 


I TRAJECTORY  TIME  AT  SPHERE  OF  INFLUENCE 


J ' 


SUSftuv,..,;,  SUPPORTED*  GbfSS 
SUdKuUYtNfS  REQUIRED*  NT  MS 


LC-vAl  Lt  i S BORS 


TEMPORARY  STORAGE  FOR  BOR 


BOTS 


TEMPORARY  STORAGE  FOR  BOT 


TEMPORARY  STORAGE  FOR  B 
TEMPORARY  STORAGE  FOR  IPRINT 


ISPS  TEMPORARY  STORAGE  FOR  ISP2 

RF1  ALTERED  FINAL  STATE  OF  VEHICLE  ON  HOST 

RECENT  NOMINAL 


RSIS 


TEMPORARY  STORAGE  FOR  RSI 


TSI1 


TEMPORARY  STORAGE  FOR  TSI 


VSIS 


TEMPORARY  STORAGE  FOR  VSI 


ALTEREO  INITIAL  STATE  OF  VEHICLE  ON  MOST 
RECENT  NOMINAL 


~“*"‘VTEO/USED» 


BOR 

ISPH 


BOT 

ISPZ 


IPRINT 


COMMON  UOr»*r)T£Q« 


COHnGU  •»  *r. 


TRTH1 


OATEJ  FACP 


FACV 


NTMC 
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VARS  IK- 1 


VABSIH  Analysis 


Subroutine  VABSDf  employe  numeric* 1 differencing  to  compute  the  variation 
matrix  H for  the  three-variable  B- plane  guidance  policy  in  the  guidance 
event  of  the  simulation  mode.  This  variation  matrix  relates  deviations 
in  the  poaltlon/ve loclty  state  at  t^  to  deviations  in  B-T,  B-K,  and 

*SI: 


4 B-T 
4 B-R 

•Hi 


. n 


lA  J 


Jl 

.1 

1 

i 

v 

f-' 

r 

c 


Since  no  good  analytical  formulas  which  relate  4 1 to  4 R,  and  <5v^ 
exist,  numerical  differencing  must  be  employed  to  compute  *7  . 

Let  be  the  j-th  column  of  the  matrix  T)  , and  assume  (most  recent) 


j 

nominal 


B-T*.  B-R*.  tg*. 


and 


V 


are  available.  To  obtain  >7  we 


increment  the  )-th  element  of  X^  by  the  numerical  differencing  factor 

A X^  and  numerically  integrate  the  spacecraft  equations  of  motion  ircnn 

to  the  sphere  of  influence  of  the  target  planet  to  obtain  the  new  values 
of  B-T,  B*R,  and  c , Then 


SI 
B-T 


B-T 


B-R  - B-R 


£1 


SI 


Ax 


Ax, 


Ax, 


it 

h 

U1'  1 
>r  ' 
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VECTOR-A  ' 


SUBROUTINE  VECTOR 

PURPOSE*  TO  COMPUTE  THE  VECTOR  ORBITAL  ELEMENTS  K (ANGULAR 
*UfcENTUM  VECTOR)  , E (ECCENTRICITY  VECTOR  TOWARD 
PERIHELION)  , **0  COMPUTE  THE  SPACECRAFT  FINAL  POSITION 
ON  THE  ORBIT  TO  ACCURATELY  APPROXIMATE  THE  OESIREO  TIME 
INTERVAL,  ANO  TO  COMPUTE  THE  CONIC  SECTION  TIME  OF 
flight. 


*• 


< 


C-LLlNv  ...JUCNCE*  CALL  VECTOR 

subro-tiwfs  supported*  vmp 

SUBROUTINES  REQUIRED*  SPACE 

.Crr.  \LS*  OUM  INTERMEDIATE  VARIABLE 

CONfruH  Cuh-'UTEO /USED*  V 


. i 
1 

i 

i 

i 

J 

1 

j 

5 

\ 


CONMOr  COMPUTED*  MOUNT 

CON.-OK  -5  to  8 HALF 

TWOPI 


ITRAT 

ONE 

PI 

THREE 

TWO 

i 

i 

1 

» 

i 

T 
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VECTOR- 1 


VECTOR  Analysis 


The  Kcpltr  vector  k representing  twice  the  areal  rata  of  the  spacecraft 
with  respect  to  the  virtual  mass  to  be  used  during  the  current  interval 
Is  computed  from 


k 


<1) 


1 


where  the  position  and  velocity  vectors  are  referenced  to  the  virtual  mass 
at  the  beginning  of  the  interval.  The  eccentricity  vector  for  the  interval 
la  given  by 


(2) 


where  is  the  average  value  of  the  virtual  mass  during  the  interval. 


The  current  time  interval  is  computed  from 

Ar  « At  + k At2 


(3) 


where  the  factor  K was  precomputed  during  the  previous  iterations.  The 
direction  of  the  final  position  a is  determined  from 


AT 


VS 


B 


(4) 


The  magnitude  factor  B is  chosen  to  force  the  final  pasition  to  satisfy 
the  orbit  equation  ( e” . r*  - -r  + k^/  n ) 


B 


e • 9 + | a J 


(5) 


The  position  and  velocity  vectors  of  the  spacecraft  relative  to  the  virtual 
mass  at  the  end  of  the  interval  are  then 


B5* 

. 

L 

r rvs 

MV 

r—  . E 

2 

k x ( e + 

a 

VS 
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(6) 
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VECTOR- 2 


The  final  position  and  velocity  of  the  apaceciatL  in  the  refers, • intiuia 

coordinates  are  computed  from 

-*  - r ♦ r 

S VS  V 

E EE. 


r ■ r + r 
S VS  V 

E EE 


The  exact  conic  section  time  of  flight  is  now  consulted.  The  in-p\v 
to  the  major  axis  is 


n - x-g 
k e 


e y 0 


k x r 


e » 0 


The  length  of  the  semi-major  axis  is  given  by 


a *»  2 e a j 

My  I l-.2  I ^ 


V ' k 


e « 1 , i ° B,E 


The  projection  of  the  radius  vector  orthogonaL  ro  the  major 
by  a is  given  by 


n • r 


xi  “ T 


i - B,E 


The  mean  angular  rate  1b 


My(l-e^) 


e f 1 


e ■ 1 


\ 


• L-  % >- 


VECTOR- 3 


where  w<,0  for  hyperbolic  orbits. 

2. 


1 

i»B,E 


sin"1  X, 


The  eccentric  anomaly  is  given  by  > 
e < 1 


k / ft  X 

Zl L 


e - 1 


(12) 


ainh" 1 X, 


e >1 


Then  M-E-eX  i ■ B,E 

i i i 


(13) 


and  the  actual  conic  time  of  flight  is 


At  ‘ ' ‘b 


M _ K 
E B 


(14) 


The  value  of  the  time  factor  X to  be  used  in  the  following  interval  is 
then  computed 


K 


At. 

2 

(At) 


(15) 
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VECTOR  Plow  Chart 


VECTOR- 4 


RETURN 


RETURN 


SUBROUTINE  VHASS 

PURPOSE!  TO  COMPUTE  THE  POSITION,  VELOCITY,  MAGNITUDE,  AND 
MAGNITUDE  RATE  OP  THE  VIRTUAL  HASS. 

CALLING  SEQUENCE!  CALL  VHASS 

SUBROUTINES  SUPPORTED*  VHP 

SUBROUTINES  REQUIRED!  NONE 

COMMON  COMPUTEO/USED!  F V 


COMMON  USED! 


NBODY  THREE  ZERO 


VMASS-1 


y 


VKASS  Analysis 


The  current  virtual  mase  data  is  computed  by  VMASS.  The  magnitude  and 
position  of  tha  virtual  mass  is  given  by 


- r M 


VS  S 


(1) 


(2) 


where  the  intermediate  variables  are  given  by 


M - 


E 

i-1 


a r 

1 1, 


(3) 


iS 


M 


(4) 


i-1  r 


IS 


and  of  course  r 


iS 


r - r and  r 
i S VS 


r - r,  where  r represents 

V 1 


the  inertial  position  vector  of  the  i-th  body. 

The  time  derivatives  of  these  variables  are  given  by 

a 

M 


- M (or  + ~ ) 
V V M 


(5) 


M ■ rv  Ms 


(6) 


M - 


n 

E 

i-i 


3 


r - 


r ° 
i ij 


(7) 


iS 


-E 


3 ° IS 
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iS 
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VKASS  Plow  Chart 


ENTER 


VHASS-3 


Compute  relative  position  vectors 
T*  and  virtual  mass  magnitude  V 

1 s 


>/C 


Compute  vector  M , virtual  mass  position  j 

r^,  , spacecraft  position  relative  to  vir-  i 
tual  mass  r , and  virtual  mass  magnitude  I 

v • 1 


Compute  velocity  of  S/C  with  respect  td 
planets  r*iS,  scalar  parameter  ar^,,  and 


auxiliary  parameter  M 


Compute  «,  r,  and  n 


V’  VS 


RETURN 
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VMP-A 


SUBROUTINE  VHP 

PURPOSE  PROVZOE  LOGIC  TO  GENERATE  VIRTUAL  MASS  TRAJECTORY 


CALLING  SEQUENCE*  OALL  VMPCRS,  ACC ,01 , TRT H,OELTH ,RSF, ISP2 > 


ARGUMENTS  RS<6) 

ACC 

Dl 

TRTM 

OELTH 


I INERTIAL  POSITION  ANO  VELOCITY  OF  S/C  AT 
INITIAL  TIME 

I ACCURACY  USED  IN  INTEGRATION 

I JULIAN  DATE,  EPOCH  1900,  OF  INITIAL  TIME 

I TRAJECTORY  TIME  (DAYS)  AT  INITIAL  TIME 

I TIME  INTERVAL  IN  DAYS  OVER  WHICH  THE 
TRAJECTORY  IS  TO  BE  PROPAGATED  JNLESS  A 
STOPPING  CONDITION  IS  REACHED 


RSF (6)  0 INERTIAL  POSITION  ANO  VELOCITY  OF  S/C  AT 

final  time 

XSPE  I SPHERE  OF  INFLUENCE  STOPPING  FLAG 
a 0 00  NOT  STOP  AT  SOI 

®1  STOP  AT  SOI  IF  INTERSECTED  BEFORE  FINAL 
TIME 


SUBROUTINES 

SUPPORTED* 

CASCAO 

NTH 

HTMS 

TRJTRY 

GIOANS 

DESENT 

TARGET 

TARMAX 

SUBROUTINES 

REQUIRED* 

CAREL 

PECEQ 

SPACE 

ELCAR 

TIME 

VECTOR 

EPHEH 

ESTMT 

VMASS 

IMPACT 

input; 

• 

ORB 

PRINT 

LOCAL  SYMBOLS  AU  NOT  USED 


CXI  COSINE  OF  THE  TRAJECTORY  INCLINATION  AT 
CLOSEST  APPROACH 


0 INTERMEDIATE  DATE  FOR  PRINTOUT  PURPOSES 

OELR  INTERMEDIATE  VARIABLE  FOR  INTERSECTION 

OF  SPHERE-OF-INFLUENCE 

OELT  INTERMEDIATE  TIME  INCREMENT  FOR  INTER- 
POLATED SPHERE-OF-INFLUENCE  POSITION 

ECEQP  TRANSFORMATION  FROM  ECLIPTIC  TO  EQUATORIAL 
SYSTEM  FOR  TARGET  PLANET 


ICUT  CUTOFF  FLAG  USED  WHEN  CLOSEST  APPROACH 
CUTOFF  HAS  OESIRED  BUT  NO  VALID  CLOSEST 
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APPROACH  FOUND 

IOAV  PRINTOUT  CALENDAR  DAY 

XHR  PRINTOUT  CALENDAR  HOUR 

IHO  PRINTOUT  CALENDAR  MONTH 

IP  NUMBER  OF  PLANET,  USEO  IN  PRINTOUT 

ISPHI  INOICATOR  FOR  CALCULATION  OF  SPECIAL 
COMPUTING  INTERVAL  NEAR  TARGET  PLANET 
SPMERE-OF- INFLUENCE 

IYR  PRINTOUT  CALENDAR  YEAR 

JJ  COUNTER  FOR  NUMBER  OF  ITERATIONS  FOR 

INTERPOLATED  'SPHERE  OF  INFLUENCE 

LARCA  INDICATOR  FOR  CALCULATION  OF  PSUEOO 
CLOSEST  APPROACH 

MIN  PRINTOUT  CALENDAR  MINUTES 

NTPI  INDEX  OF  THE  SPACECRAFT  VECTORS  IN  THE 

F- ARRAY  KITH  RESPECT  TO  THE  TARGET  PLANET 

RCM  MAGNITUDE  OF  POSITION  OF  VEHICLE  RELATIVE 

TARGET  PLANET  AT  CLOSEST  APPROACH 

RCN1  PREVIOUS  RAOIUS  OF  VEHICLE  RELATIVE  TO 
TARGET  PLANET 

RCM2  PRESENT  RAOIUS  OF  VEHICLE  RELATIVE  TO 
TARGET  PLANET 

ROT  NOT  USEO 

RTEMP  SPACECRAFT  POSITION  AT  INTERPOLATED 

CLOSEST  APPROACH  IN  THE  TAR6ET  PLANET 
•EQUATORIAL  SYSTEM 

SEC  PRINTOUT  CALENDAR  SECONDS 

TINCR  '•  IHE  INCREMENT  USED  FOR  INTERPOLATED 

CLOSEST  APPROACH 

TXNXN  TOTAL  TIME  USEO  IN  ONE  INTEGRATED 
TRAJECTORY 

TIM1  CLOCK  TIKE  AT  BEGINNING  OF  TRAJECTORY 

TIM2  CLOCK  TIME  AT  ENO  OF  TRAJECTORY 
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THU  GRAVITATIONAL  CONSTANT  OF  TARGET  PLANET 
<W*»3/SEC»*2) 

TP  INTERMEDIATE  VARIABLE  FOR  CALCULATION  OF 

SPECIAL  COMPUTING  INTERVAL  NEAR  SPMERE-OF- 
INFLUENCE  OF  TARGET  PLANET 

TTG  GRAVITATIONAL  CONSTANT  OF  TARGET  PLANET 

(KM**3/SEC**2> 

VCA  VELOCITY  MAGNITUDE  MITH  RESPECT  TO  TARGET 

PLANET  AT  INTERPOLATED  CLOSEST  APPROACH 

VCM  MAGNITUDE  OF  VELOCITY  OF  VEHICLE  RELATIVE 
TO  TARGET  PLANET  AT  CLOSEST  APPROACH 
BEFORE  INTERPOLATION 

VQ  EQUATORIAL  SPACECRAFT  VELOCITY  RELATIVE  TO 

TARGET  PLANET  AT  CLOSEST  APPROACH  3EF0RE 
INTERPOLATION 

VTEHP  SPACECRAFT  VELOCITY  AT  INTERPOLATED 

CLOSEST  APPROACH  IN  THE  TARGET  PLANET 
EQUATORIAL  SYSTEM 

XI  UN INTERPOL  AT ED  Eu.  TORIAL  INCLINATION  FOR 

PRINTOUT  PURPOSES 

XMAG  INTERMEDIATE  VARIABLE  FOR  CALCULATION  OF 
XI 

XN  VECTOR  NORMAL  TO  TRAJECTORY  PLANE  IN 

TARGET  PLANET  EQUATORIAL  SYSTEM  FOR 
CALCULATION  OF  XI 

XQ  EQUATORIAL  SPACECRAFT  POSITION  RELATIVE 

TO  TARGET  PLANET  AT  UNINTERPOLATEO 
CLOSEST  APPROACH 

ZM  INTERMEDIATE  VARIABLE  IN  CALCULATION  OF 

INTERPOLATED  CLOSEST  APPROACH  INCLINATION 


ZTEMP  VECTOR  NORMAL  TO  TRAJECTORY  PLANE  FOR 
CALCULATION  OF  INTERPOLATED  CLOSEST 
APPROACH  INCLINATION 


COMMON 

COMPUTED /USED! 

CAINC 

INCMT 

NO 

VSI 

DC 

ISPM 

RCA 

V 

DSI 

ITRAT 

RC 

ICL 

MOUNT 

RSI 

INCMNT 

NBODYI 

TIHINT 

COMMON 

COMPUTED! 

OELTH 

INCPR 

RE 

RTP 

RVS 
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WHU 

COMMON  USED  I ALNGTH  BOR  BOT  B OELTP 

EH7  EMB  F HALF  I CL 2 

IEPHEH  ZNPR  I PRINT  NBOO  NB 

NTP  ONE  PLANET  PHASS  RADIUS 

RAO  SPHERE  TH  TWO  ZERO 
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VHP  Analysis 


VHP  provides  the  logic  to  integrate  an  N-body  trajectory  from  an 
initial  spacecraft  state  (rg,  vg)  at  time  tg  to  one  of  the  following 
stopping  conditions. 

1.  Target  planet  sphere  of  influence  (SOI)  is  reached 
(I5P2  i 0). 

2.  The  closest  approach  to  the  target  planet  has  been  reached 
(ICL2  - 1). 

3.  The  preset  final  trajectory  time  ty  has  been  exceeded. 

The  integration  logic  is  controlled  by  ITRAT 

IT  RAT  ■*  1 First  pass  through  computation  cycle  (including 
ephemerls  computation) . 

2 Second  pass  through  computation  cycle  (excluding 
ephemerls ) . 

3 Initialization  flag. 

To  start  the  integration,  appropriate  variables  are  initialized 
(PRINTZ)  and  ITRAT  is  set  equal  to  3.  The  state  of  all  gravitational 
bodies  at  t are  found  (ORB,  EPKEM) . The  initial  virtual  mass  position 

O 

r„  , velocity  v , magnitude  n and  magnitude  rate  jk  are  found  by 
B B VB  VB 

VMASS.  Virtual  mass  dependent  values  are  then  lnitlllzed 


AVE 

(1) 

?v 

AVE 

‘ \ .. 

(2) 

r 

VSE 

• r * 
VSB 

(3) 

• 

" r 

VSB 

(4) 

(At)2 

- 1 

(5) 

IS  PHI 

- 0 

(6) 
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I 


[ 
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Ac  this  point  the  standard  Integration  routine  is  entered  by  celling 
VECTOR..  * 

In  the  standard  integration  routine,  a new  increment  is  initiated  by 
calling  ESTKT  which: 

1.  Initialises  all  appropriate  variables  at  th-  v -ginning 
of  the  increment  (subscript  B}  tc  equal  their  values 
at  the  end  of  the  previous  increment. 

2.  Computes  a At  for  the  increment  based  on  a modified 
true  anomaly  paaaage. 


3. 

4. 


Computes  the  time  at  the  end  of  the  increment  t^. 

Estimates  the  final  (subscript  E)  position  r and  magnitude 
u of  the  virtual  mass.  ' E 

E 


Eased  on  these  estimates,  the  average  magnitude  and  velocity  of  the 
virtual  mass  is  computed 


, - 1/2  0*y  +My  ) 

AVE  B E 

(7) 

'v  “ <*y  “ *v  >/At 

AVE  E B 

00 

Subroutine  VECTOR  then  computes  the  orbit  relative  to  the  virtual 
mass  based  on  these  estimates.  It  also  refines  the  estimate  of  the 
spacecraft  final  state  (r  , v ).  ORB  and  EPHHi  axe  called  to  deter - 

SE 

mine  the  state  at  t^  of  all  gravitational  bodies  being  considered.  The 
virtual  mass  position  r , velocity  v„  , magnitude  ^ and  magnitude 

E E E 

rate  m„  are  determined  by  VMASS. 

VB 

Using  these  refined  .values,  the  virtual  mass  average  magnitude  u 

AVE 

and  velocity  v axe  recomputed  using  equations  (7)  and  (8).  At  this 
AVE 

point  a second  pass  is  made  through  VECTOR  to  compute  the  spacecraft 
final  state  (r_  , v ) which  will  be  used  in  all  subsequent  calculations. 
E E 

VMASS  la  again  called  to  make  a final  determination  of  the  virtual  mass 


l 

i 


i 

1 


j 

| 

i 

4 

i 
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poittlon,  velocity,  magnitude  ami  magnitude  rate  at  the  end  of  the 
Increment. 

The  virtual  mama  average  accelerations  are  then  computed 

“ CMv  “ Mv  “ GAt)]/(At)2  (9) 


AVE  ’E  B *B 


D “ [*U  " “ Vy  CAt)]/^)4 

*AVE  K VB  VB 


(10) 


These  values  are  subsequently  used  by  ESTKT  to  estimate  the  final 
position  ry  and  magnitude  u of  the  virtual  mass  for  the  next 
increment.  VK  Vg 


> 

V 


-4^ 

V.  S i 

"fi 


Tests  are  new  made  to  determine  whether  the  target  planet  SOI  has  been 
pierced.  If  It  has  the  Interpolated  state  at  the  SOI  Is  found  nf»< ng 
the  following  Iterative  routine 


dr  - r 


i*«wi 


(ii) 


SOI  1 “ST 

where  - radius  of  the  target  planet  SOI 

position  of  spacecraft  WET  target  planet  at  n-th  iteration 

(n)  4r  ^ST°^ 

4t(n)- J2 r 

ija)  - v (0) 


(12) 


ST 


ST 


4t(a) 

ST  ST  ST 


(13) 


t - t <°> 
SI  E 


(U) 


The  Interpolated  state  at  the  SOI  la  then  used  by  IMPACT  to  compute 
B-T  and  B*R< 

If  trajectory  data  Is  to  be  printed  at  this  point,  the  orbit  Inclination 
(assuming  a hyperbolic  orbit  about  the  planet)  Is  computed  by  first 
determining  the  "Kepler  vector" 


£ • r__  x v__ 
ST  ST 


(13) 
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in  planetocentrlc  equatorial  coordinates.  Then 
k 

Cos  1 - “ 

m 


(16) 


where  1 - orbit  Inclination 

■ component  of  £ normal  to  planet  equatorial  plane 

Teats  are  now  made  to  determine  if  the  spacecraft  has  reached  a closest 
approach  to  the  target  planet.  If  It  has,  the  Interpolated  state  at 
closest  approach  (r^,  v^)  computed  by  calling  CAREL  with  the  spacecraft 
state  Just  following  closest  approach.  CAREL  returns  the  element  of  the'  near 
planet  conic.  ELCAR  la  then  called  with  these  conic  element  and  returns  the 
Interpolated  state  at  closest  approach. 

If  the  spacecraft  Is  not  within  10  SOI  of  the  target  planet,  print  out  of 
closest  approach  data  may  occur ; however,  integration  continues. 

The  final  casts  before  atsrtlng  a new  integration  increment  determines  If 
the  maximum  trajectory  time  t^  has  been  exceeded  or  a planet  has  been  im- 
pacted. If  these  testa  are  passed,  a new  integration  cycle  is  initiated 
by  calling  ESTKT. 
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' SUBROUTINE  ZERIT 

PURPOSE!  TO  COMPUTE  THE  COMPUTATION  OF  THE  ZERO  ITERATE  “ALUES  OF 
TIME*  POSITION  VECTOR*  AND  VELOCITY  VECTOR. 

CALLING  SEQUENCE!  CALL  ZERIT 

SUBROUTINES  SUPPORTED!  PRELIM  GZOANS 

SUBROUTINES  REQUIRED!  HELIO  LUNA 

COMMON  USED!  IZERO  LTARG 


miT-i 


ZERIT  Analysis  1 


ZERIT  is  the  executive  subroutine  handling  the  computation  of  the  zero 
iterate  values  of  time,  position  vector,  and  velocity  vector. 

The  flag  1ZER0  controls  the  operation  of  ZERIT.  If  IZE&O  • 0,  no  zero 
Iterate  computation  le  needed  and  so  ZERIT  is  exited.  If  IZERO<10,  the 
zero  Iterate  is  to  be  computed  for  a interplanetary  trajectory  so  HELIO 
is  called  before  returning.  If  IZERQ>10,  the  zero  iterate  is  to  be 
computed  for  a lunar  trajectory  so  LUNA  is  called  for  that  computation. 


ZERIT  Flow  Chart 
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